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1.  INTRODUCTION 


This  report  describes  in  detail  the  construction  of  the  Sustained  Combat  Model;  Tank  Wars  H.  It 
assumes  you  are  familiar  with  the  Users’  Manual  for  Tank  Wars. 

Tank  Wars  II;  The  Sustained  Combat  Model  is  a  computer  simulation  of  sequential  engagements 
between  mechanized  combatants;  one  side  of  which  is  not  re-supplied.  It  is  routinely  used  at  various 
military  installations  and  by  government  contractors  for  evaluating  the  combat  effectiveness  of  tanks  and 
other  fighting  vehicles.  The  systems  being  evaluated  (usually  US  systems)  defend  against  one  or  more 
waves  of  attackers  without  resupply,  or  on  the  attack,  engage  one  or  more  defended  positions  without 
being  resupplied. 

Each  engagement  is  simulated  in  detail.  The  critical  events  in  such  an  engagement  include  search, 
detection,  selection,  acquisition,  firing,  impact,  damage,  target  disengagement,  and  re-engagement. 
Interwoven  with  these  events  are  motion  events  and  intervisibility  events.  If  desired,  the  program  will 
print  an  event  history  for  detailed  study. 

The  model  includes  three  types  of  engagements,  two  generic  armaments,  three  categories  of 
functional  losses,  and  two  types  of  false  targets.  Below  is  an  extensive  list  of  model  features.  The  three 
scenarios  are  attack,  defense,  and  a  meeting  engagement.  Guns  fire  kinetic  energy  (KE),  or  high-explosive 
anti-tank  (HEAT)  rounds  while  missiles  may  be  guided-to-impact  or  fire-and-forget  systems.  Systems  may 
fire  while  moving  or  halt  to  fire.  In  either  case  they  may  suffer  loss  of  mobility,  firepower,  or  both  and 
may  be  catastrophically  killed.  In  addition  to  the  weapons  systems  being  evaluated,  there  may  be  a 
number  of  active  or  passive  decoys  and  there  are  generally  some  false  targets  in  the  scenario. 


MODEL  FEATURES 
Armament/ accuracy 
round  reliability 

KE,  HEAT,  missiles  (incl  STAFF) 
time  of  flight 

probability  of  sensing  miss 
S-S  accuracy  depends  on  prev  round 
Driver  routines  loop  through 
scenarios 
opening  ranges 
force  ratios 
multiple  replications 
waves  of  threat  systems 
re-grouping 

Fire  cycle  characteristics  modeled 
ammo  consumption 
burst  fire 
first  round  time 
subsequent  round  times 
manual  loading,  load  assist, 
automatic  loading 
Intermediate  output 
event  histories 
logic  tracing 
event  tracing 

as  scheduled,  canceled,  and  retrieved 
Measures  of  effectiveness 
ammo  consumption 
blue  tanks  killed 
red  tanks  killed 
blue  win  probabilities 
red  win  probabilities 
exchange  ratios 


Miscellaneous  characteristics 
multiple  kill  levels 
pinpoint  and  non-firing  detection 
various  target  disengagement  policies 
model  widely  used 
21  levels  of  tgt  priority 
simple  terrain 
Program  design 
event  sequenced 
time  stepping  for  detection 
stochastic 
Fortran  77 
modular 
structured 
indented  code 
3900  lines  of  code 
Scenario  characteristics  modeled 

multiple  waves  of  Red  threat  systems 
multiple  combatants 
false  targets 

passive  and  active  decoys 
Vehicle  characteristics  modeled 
disjointed  turret  &  hull 
cardioid  or  other  aspects 
moving  targets 
fire  on  the  move 
halt  to  fire 
gross  motion 

full  defilade,  hull  defilade,  fully  exposed 
red  tanks  killed 
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blue  win  probabilities 
red  win  probabilities 
exchange  ratios 

Conventions.  Ail  units  are  meters,  seconds,  radians,  or  a  combination  of  these  unless  oth¬ 
erwise  noted. 

The  program  uses  a  right  handed  cartesian  coordinate  system  which  is  standard  for  test 
ranges  and  navigation  systems.  The  x-axis  is  positive  Eastward,  the  y-axis  is  positive  Northward, 
and  the  z-axis  is  positive  upward.  Angles  in  the  ground  plane  are  measured  clockwise  from  North. 

A  second  coordinate  system  is  target  based,  with  its  origin  at  the  center  of  the  turret  ring  or 
what  passes  for  the  turret  ring.  In  this  coordinate  system,  the  x-axis  is  positive  to  the  right  of  the 
firer,  the  y-axis  is  positive  upward,  and  the  z-axis  is  positive  going  from  the  target  toward  the 
firer. 

Some  conventions  used  in  the  program  are: 

A  two  space  indentation  is  used  to  display  organization 

Constants  are  in  upper  case 

Changes  in  the  flow  of  execution  are  in  upper  case 

Error  messages  begin  with  the  routine  name 
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1.1  Hierarchy  of  Routines.  The  diagram  below  shows  the  organization  of  the  program. 
The  routines  in  the  first  three  columns  are  arranged  in  a  hierarchy  with  called  routines  indented 
slightly  beneath  the  calling  routines.  The  routines  in  the  last  three  columns  are  utility  routines 
which  may  be  called  by  many  routines.  They  do  not  fit  well  into  a  hierarchy. 
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The  routines  in  column  one  are  highest  in  the  calling  hierarchy  and  considered  together  con¬ 
trol  the  execution  of  individual  engagements.  The  number  of  times  each  is  called  varies.  A  few 
are  called  only  once  each  time  the  program  is  run.  At  most,  some  are  called  twice  per  simulated 
engagement;  once  for  each  side  in  the  engagement. 

The  routines  in  the  second  and  third  columns  are  called  by  the  events  routine.  They  are 
called  many  times  during  a  single  engagement  to  simulate  the  events  which  occur  during  a  single 
engagement. 

The  routines  in  column  four  are  model  utility  routines.  They  are  special  purpose  routines 
which  are  called  to  provide  information  to  other  routines  but  which  call  no  other  routines  and 
may  be  thought  of  as  trig  functions  or  other  utility  functions. 

Column  five  lists  the  time  advance  routines.  They  or  something  similar  must  be  included  in 
any  event  stepped  simulation. 

Finally,  column  six  lists  general  utility  routines.  They  can  be  treated  like  trig  or  other 
library  functions  and  are  useful  in  non-simulation  programs. 
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1.2  One  Line  Descriptions  of  Routines.  Here  is  an  alphabetical  listing  of  the  routines 
and  one  line  descriptions  of  what  they  do. 

Abort:  Abort  a  missile  in  flight. 

Acc  err:  Find  the  linear  error  for  a  single  round. 

Acc  ms:  Find  angular  accuracy  for  moving  firer  vs  stationary  target. 

Acc  sm:  Find  angular  accuracy  for  stationary  firer  vs  moving  target. 

Acc  ss:  Find  angular  accuracy  for  stationary  firer  vs  stationary  target. 

Accel:  Begin  acceleration 

Anglef:  Find  the  angle  between  two  vectors. 

Appear:  Simulate  or  reschedule  an  appear  event. 

Aprsmk:  Simulate  target  appearing  from  behind  smoke. 

Aprter:  Simulate  target  appearing  from  behind  terrain. 

Bounds:  Find  the  horizontal  bounds  of  the  hull  or  turret. 

Can  go:  Find  if  tank  is  stopped  but  mobile. 

Cancel:  Cancel  an  event. 

Confb:  Find  the  confidence  interval  on  a  binomial  outcome. 

Create:  Find  space  to  store  bullet  data. 

Creset:  Clear  stored  bullet  data. 

Damag  f:  Simulate  firepower  damage. 

Damag  m:  Simulate  mobility  damage. 

Damage:  Simulate  damage  to  the  target. 

Deaths:  Tallys  deaths. 

Deploy:  Place  combatants  at  start  of  engagement. 

Det  rg:  Find  maximum  range  to  which  each  firer  can  detect. 

Detect:  Find  if  target  is  detected  and  schedule  subsequent  events. 

Devie2:  Find  the  probability  device  2  detects  in  the  next  second 
Diseng:  Attempt  to  disengage  1  firer  from  1  target. 

Engage:  Begin  engagement  of  new  target  by  this  firer. 

Event:  Find  next  event. 

Events:  Call  each  event  in  sequence. 

Eye:  Find  the  probability  the  eye  detects  in  the  next  second. 

Fire:  Simulate  firing  of  a  round  and  schedule  effects. 

Frdbst:  Results  of  firing  a  round  of  a  burst. 

Frdmsl:  Results  of  firing  a  missile. 

Frdssg:  Results  of  firing  a  single  shot  gun. 

Halt:  Simulate  a  tank  halting. 

Hide:  Simulate  tank  hiding. 

Impact:  Find  what  bullet  and  firer  do  at  impact. 

Indexx:  Find  the  index  j,  where  a(j)  <  =  x  <  a(j  +  l). 

Init:  Initialize  for  a  single  engagement. 

Initnv:  Generate  detection  probability  tables. 

Input:  Read  game  control  file. 

Iz  hit:  Find  if  the  target  is  hit. 

Kills :  Find  type  of  damage  caused  by  top  attack  round. 

Kill:  Find  type  of  damage  caused. 

Late  kl:  Simulate  discard  of  inactive  m&f-killed  target. 

Main:  Simulate  armored  combat. 

Max  vel:  Simulate  tank  reaching  combat  cruise  speed. 

Mayhit:  Find  whether  the  round  hits. 

Mk  tbl:  Make  table  of  head-on  lethality  data. 

Newtgt:  Redirect  all  foe  to  a  new  target. 

Nvl:  Find  probability  of  ever  detecting  and  of  detecting  in  next  second. 
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Path:  Find  position  and  velocity  of  combatant. 

P'npnt:  Simulate  firing  signature  detection. 

Pop  dn:  Simulate  defender  popping  down  to  reload  missile  pods. 

Pr  misc:  Print  miscellaneous  tank  characteristics. 

Priorn:  Select  target  with  highest  priority. 

Priort:  Find  priority  of  a  single  target. 

Ran  Ang;  Draw  a  random  angle  from  a  cardioid  or  other  distribution. 

Rann:  Draw  a  random  number  from  a  normal  distribution. 

Ranu:  Draw  a  random  number  from  the  standard  uniform  distribution. 

Rd  eror:  Read  accuracy  data  for  one  side. 

Rd  misc:  Read  miscellaneous  tank  characteristics. 

Rd  pkh2:  Read  HEAT  and  missile  lethality  data. 

Rd  pkh5:  Read  top  attack  lethality  data. 

Rd  pkh:  Read  standard  lethality  data. 

Rd  smk:  Read  intervisibility  data  for  smoke. 

Reload:  Bring  up  another  pod  of  missiles. 

Reset:  Re-initialize  the  event  list. 

Rgf;  Find  range  to  target,  relative  position,  and  velocities. 

Schedule:  Schedule  an  event. 

SearcO:  Schedule  initial  search  event. 

Searc2:  Find  if  one  searcher  detects  one  target  in  the  next  second. 

Search:  Find  targets  detected  in  next  second. 

Selecs:  Start  target  selection  if  appropriate. 

Select:  Gunner  chooses  most  dangerous  target  it  sees. 

Slow  up:  Begin  deceleration. 

Smoke:  Find  when  smoke  will  stop  blocking  LOS  between  searchers  and  targets. 
Statsl:  Print  summary  statistics. 

Stats2:  Print  statistics  for  a  single  wave. 

Stats3:  Print  statistics  for  a  single  engagement. 

TDlntp:  Interpolate  in  a  two  dimensional  matrix. 

Terain;  Find  path  lengths  where  attacker  is  masked  by  terrain. 

Vanish:  Simulate  or  reschedule  vanish  event. 

Vansmk:  Simulate  target  vanishing  behind  smoke. 

Vanter:  Treat  target  vanishing  behind  terrain. 

Waves:  Loop  through  waves  of  red  tanks. 
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1.3  Data  Structure.  The  hies:  commou.h  and  clock.h  and  the  bikdat  routine  contain 
code  defining  global  variables.  This  section  discusses  commou.h  and  bikdat.  The  clock.h  file  is 
discussed  in  a  later  section  with  the  other  clock  routines. 

The  following  values  are  communicated  to  routines  via  block  common  statements  which  are 
in  the  common. h  file.  Constants  are  all  upper  case.  Normally  integers  begin  with  the  letters  i..n, 
and  reals  begin  with  the  remaining  letters.  If  this  is  not  the  case,  the  definitions  below  tell  whether 
the  variable  takes  an  integer,  real,  logical,  or  character  value. 


ACCELG 

ALIVE 

ALL 

BATTAK 

BLU 

DEG 

FD 

FE 

FKILL 

FLSTGT 

HD 

HULL 

IK  ILL 

KKELL 

MAXVL 

MEETNG 

MFKILL 

MKILL 

NN 

NULL 

PI 

RATTAK 

RED 

SLOWNG 

STATNY 

TURRET 

TWOPI 

a(lOOO) 

accel(2) 

accmax(2) 

ampl(2) 

angle 

army(NN) 

busy(NN) 

chaneI(2,NN..'>l 

color(2) 

decel(2) 

empty(NN) 

fot(NN) 

histry 


=  3  Identifies  tank  that  is  accelerating,  integer 
=  1  Implies  fully  functional,  integer 

=  0  Used  to  schedule  or  cancel  an  event  for  all  firers  or  targets,  integer 
=  3  Blue  attack  scenario,  integer 
=  1  #  of  blue  side,  integer 
=  57.29577951  Degrees/radian. 

=  1  Full  defilade,  integer 

=  3  Fully  exposed,  integer 

=  3  Firepower  kill,  integer 

=-l  ID  #  for  false  targets,  integer 

=  2  Hull  defilade,  integer 

=  2  Identifies  hull  box.  integer 

=  5  M&F  kill  &  recognized  to  be  inactive. 

=  6  Catastrophic  kill. 

=  4  Identifies  tank  moving  at  maximum  combat  velocity. 

=  1  Meeting  scenario. 

=  4  Mobility  &  firepower  kill. 

=  2  Mobility  only  kill. 

=  Maximum  number  of  tanks  playable. 

=  0  No  specific  target  associated  with  firer  event. 

=  3.141592654  (jr). 

=  2  Red  attack  scenario,  integer 

=  2  #  of  red  side,  integer 

=  1  Identifies  tank  that  is  slowing  up.  integer 

=  2  Identifies  tank  that  is  stationary  (halted),  integer 

=  1  Turret  of  tank,  integer 

=  6.283185308  (2;r). 

See  routine  create.  Storage  for  temporary  entities. 

Acceleration  of  ith  side  (m/s**2}. 

Maximum  lateral  acceleration  (m/s**2). 

Amplitude  of  sinusoidal  path  (m). 

No  longer  used.  Used  to  input  crossing  angle  of  attacker. 

Army(i)  is  1  if  ith  tank  is  Blue  and  2  if  it  is  Red  integer 
busy(i)=T  iff  ith  tank  is  too  busy  to  select  a  new  tgt.  logical 
chanel(i,j,k)  contains  ID  of  missile  for  ith  side,  jth  tank,  kth  guidance  channel. 
color(n)  is  the  color  of  the  nth  army,  character*-! 

Deceleration  of  ith  side  (m/s**2). 

empty(i)=T  iff  out  of  ammo  or  empty  missile  pod.  logical 
fot(i)=T  iff  ith  tank  is  occupied  firing  on  a  target,  logical 
=T  iff  event  history  will  be  printed,  logical 
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iangd 

idecoy(NN) 

iflash(NN) 

iholy 

invisb 

irandm 

irginc 

ishtfs(2) 

keym(20) 

kindrd(2) 

knceal(NN) 

kshot(2,20) 

kview(2) 

life(NN) 

loader(2) 

los(NN,NN) 

methsm 

mot(NN) 

motion(NN) 

nblu 

nbrst(NN) 

nbump{2) 

nchan((NN)) 

nchans(2) 

ndecoy(2) 

ndet{NN) 

ndets(2) 

neval 

nflash(2) 

nhol(Ni\’) 

nipod(NN) 

nipods(2) 

nprior(2) 

nrd(NN) 

nrds(2) 

nred 

nreps 

nrg 

nrib(2) 

nrot(NN) 

nrpb{2) 

nrpt(2) 

nrtgt(NN) 

nused(3000) 

n  waves 

pdet(2,3,10) 

pfalse(2,2) 

pinfin(2,3,10) 

pinp(2) 


=1  if  using  cardioid  distribution  of  aspect  angles,  2  if  frontal  distribution. 
idecoy(i)=T  iff  ith  tank  is  a  decoy. 
iflash(i)=T  iff  ith  tank  is  a  flashing  decoy. 

See  create.  Index  of  storage  space  being  examined. 

=1  for  terrain,  2  for  smoke.  Cannot  use  both  smoke  terrain. 

Random  number  seed. 

Range  increment  for  detection,  time  of  flight,  tfirst,  pkh  tables.  Usually  500  meters. 

Side  is  halt  to  fire,  logical 

=T  iff  print  statement  should  be  executed. 

Side’s  kind  of  round. 

knceal(i)  is  1  if  full  defilade,  2  if  hull  defilade,  3  if  fully  exposed. 

Count  of  shot  results. 

kview(i)=l  for  visual  detection,  2  for  thermal  viewer. 

life(i)  is  1  if  ALIVE,  2  if  MKILL,  3  if  FRILL,  4  if  M&FKILL,  5  if  IKILL,  6  if  KRILL. 
loader(i)=l  for  manual  loader,  2  for  load  assist,  3  for  autoloader. 
los(i,j)  =  T  iff  firer  i  has  line-of-sight  to  target  ].  logical 
1  iff  interpolation  for  crossing  angle  desired. 
mot(i)=T  iff  ith  tank  is  guiding  missile  to  tgt.  logical 

motion(i)  is  1  if  slowing,  2  if  stationary,  3  if  accelerating,  4  if  max  combat  speed. 

#  blue  tanks. 

nbrst(i)  is  #  rounds  fired  by  ith  tank  during  current  burst. 

#  of  rounds  to  fire  at  MF  killed  tgt  before  discarding  it. 

#  guidance  channels  for  ith  side. 

#  guidance  channels  for  ith  side. 

#  decoys  on  ith  side. 

#  tgts  ith  tank  has  detected. 

#  tgts  tank  on  ith  side  can  detect. 

#  surviving  blue  tanks  with  ammo. 

#  flashing  decoys  on  ith  side. 

nhot(i)  is  fjt  hits  on  ith  tank  after  it’s  M&F  killed. 

#  rounds  in  missile  pod  for  ith  side. 

#  rounds  in  missile  pod  for  ith  side. 

nprior(i)  =  1  if  ith  side  using  priority  scheme  1,  2  if  using  scheme  2. 

#  rounds  fired  by  ith  tank. 

#  rounds  on  system  for  ith  side. 

#  red  tanks. 

#  replications. 

#  of  range  band,  if  irginc=.500,  nrg  =  1  for  data  at  500  meters,  2  at  1000  meters,  etc. 

#  rounds  in  a  burst  for  ith  side. 

#  rounds  on  target  for  ith  tank. 

#  rounds  per  burst  for  ith  side. 

#  rounds  per  target  for  ith  side. 

ID  #  of  ith  tank’s  target. 

#  rounds  fired  by  tank. 

#  waves. 

pdet(i,j,k)  is  probability  of  detecting  in  next  second  for  ith  side  vs  tgt  in  condition  j, 
at  kth  range. 

pfalse(i,l)  is  prob  ith  side  selects  false  IID  tgt.  pfalse(i,2)  is  for  FE  tgt. 

Prob  tank  on  ith  side  detects  tgt  in  cond  j  at  range  band  k. 

Probability  of  pinpoint  detection  for  ith  side. 


prevrd(NN) 

psense(2,8) 

recknz(2) 

reliab(2) 

repeat 

rex 

rey 

rg 

rgO 

rgincr 

rgvis(3,NN) 

rof(2) 

scene 

see(NN,NN) 

share(2) 

speed(2) 

sysdim(2,8) 

tO(NN) 

tactic(2) 

tbump(2) 

tcon(2) 

tfire(NN) 

tfire2(NN,NN) 

lfirst{2,8) 

thide(2) 

tini(21,5) 

tinv(21,5) 

tlook(2) 

tmax 

tof(2) 

touti(21,5) 

toutil(21,5) 

toutv(21,5) 

toutvl(21 ,5) 

trace 

trelod(2) 

tvar(2) 

vxO(NN) 

vyO(NN) 

wvlth(2) 

xO(NN) 

yO(NN) 


1  if  1st  rd  on  tgt,  2  if  previous  was  a  hit,  3  if  previous  was  sensed  miss,  4  if  previous 
was  lost  miss. 

Probability  of  sensing  miss  for  tank. 

recknz(i)  is  range  cutoff  for  target  selection  routine. 

Probability  round  is  reliable  for  ith  side. 

Repeat  search  code  for  all  tanks. 

Random  error. 

Random  error. 

Range  from  firer  to  target  (m). 

Opening  range  for  engagement  (m). 

Range  increment  in  tables  (m).  Usually  500  meters. 

rgvis(i,j)  is  range  to  which  jth  tank  can  detect  target  in  ith  condition. 

Rate  of  fire  for  ith  side. 

=  1  for  meeting,  2  for  Red  attack,  3  for  Blue  attack 
Tank  i  has  seen  target  j. 

share(i)=T  iff  side  i  shares  info  re  targets  &  spreads  fire  evenly,  logical 
Combat  speed  of  ith  side  (m/s). 

Dimensions  of  tanks  on  side. 

Last  time  position  and  velocity  were  updated  (sec). 

Disengagement  tactic  for  ith  side,  integer 

Time  for  ith  side  to  bump  MF  killed  tgt  to  inactive. 

Constant  time  for  loaders  -  for  time  between  rds. 

Time  tank  fired  last. 

Time  tank  fired  at  target  last. 

Median  time  to  fire  first  round  for  ith  side. 

Time  to  hide  for  ith  side  (sec). 

Table  of  in  view  segment  lengths  for  infrared  sensors. 

Table  of  in  view  segment  lengths  for  visible  band  sensors. 

Time  tank  will  look  before  re-engaging  old  target. 

Maximum  time  (sec).  Used  to  cut  off  a  replication. 

Time  of  flight  for  ith  side. 

Table  of  out-of-view  segment  lengths  for  infrared  sensors. 

Table  of  out-of-view  segment  lengths  for  infrared  sensors. 

Table  of  out-of-view  segment  lengths  for  visible  band  sensors. 

Table  of  first  out-of-view  segment  lengths  for  visible  band  sensors. 

Prints  entry  to  and  exit  from  routines  iff  true,  logical 
Time  to  reload  (next  missile  pod)  for  ith  side. 

Median  variable  time  for  loaders  -  for  time  between  rds, 
vxO(i)  is  the  last  computed  speed  of  the  ith  tank,  (m/s). 

Velocity  of  tank. 

Wave  length  of  sinusoidal  path  (m). 

x0(i)  is  the  last  computed  Easting  coordinate  of  ith  tank.  (m). 

Position  of  tank. 


The  common. h  file  and  the  bikdst  routine  are  listed  below.  The  data  statements  in  the 
bikdat  routine  set  values  for  the  constants  in  labeled  common.  While  many  compilers  do  not 
require  these  data  statements  to  be  placed  in  a  separate  block  data  routine,  the  Fortran  77  stan¬ 
dard  and  the  current  Microsoft  Fortran  compiler  do. 


c  common. new 
c  VI  3 

c  common  h  file 

parameter  (NN— 20)  I 

c  Much  used:  2 

character’t  color  3 


common  /chare  -  color(2) 
common  /consls/  PI,  TWOPI,  DEG 
integer  ALL,  NULL,  FLS  TGT, 

FD,  HD,  FE,  TLIRRET,  HULL,  BLU,  RED,  MEETNG,  RATTAK, 
BATTAK,  ALIVE,  MKILL,  FKILL,  MFKILL,  KILL,  KKILL, 
SLOWNG,  STATNY,  ACCELG,  MAXVL 
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common /const2/  ALL,  NULL,  FLS  TGT, 

1  FD,  TO,  FE,  TURRET,  HULL,  BLU,  RED,  MEETNG,  RATTAK, 

2  BATTAK,  ALIVE,  MKILL,  FKILL,  MFKILL,  IKILL,  KKILL  , 

3  SLOWNG,STATNY,ACCELG,MAXVL 
integer  scene,  army 

common  /contrl/  nreps,  keym(20),  scene,  Imax,  meth  sm 
common  /cshot/  kshot(2,^) 
logical  trace,  histry 
common  /ctrace/  trace,  histry 
common  /n  sys/  nblu,  nred 
common  /stales/  army(NN),  lire(NN),  nrtgt(NN) 
c  Less  used: 

common  /aspekt/  iangd 
common  /tslore/  a(lOOO),  iholy 
common  /vars6/  irginc,  rgincr 
c  Vehicle: 

common  /endgam/  sysdim(2.8) 

common  /state2/  idecoy(NN),  iflash(NN),  ndecoy(2),  nHash(2) 
c  Round: 

common  /round/  kindrd(2),  nrds(2),  nrd(NN),  reliab(2), 

1  nipods(2),  nipod(NN),  lrelod(2),  nrpb(2),  nrib(NN),  tof(2,8) 
c  Detection: 

logical  los,  see,  repeat 
integer  prevrd 

common  /xx/  invisb,  kview(2),  ndets(2),  ndet(NN), 

1  pinp(2),  llook(2).  los(NN,NN), 

2  knceal(NN),  prevrd(NN),  rgvis(3,NN),  see(NN,NN) 
common  /sensor/  psense(2,8),  pinfin(2,3,10),  pdet(2,3jl0), 

1  repeat 
c  Selection: 

logical  busy,  fol,  mot,  share 

common  /choose/  busyINN),  fot(NN,NN),  mot(NN.NN), 

1  nprior(2),pralse(2,2),recknz(2),share(2),tfire(NN.NN),tfire2(NN)(2) 
c  Fire  cycle: 

integer  chanel 
logical  empty 

common  /fcycle/  ishlfs(2),  loader(2),  tfirst(2,8], 

1  ror(2),  tvar(2),  tcon(2),  nbrsl(NNi,  empty(NN), 

2  chanel(2,NN,5),  nchans(2),  nchan(NN) 
c  Target  discard: 

integer  tactic 

common  /policy/  tactic(2),  nrpt(2),  nrol{NN),  nhot(NN). 

1  tbump(2).nbump(2) 
c  Motion: 

common  /cpath  /  accel(2),decel(2), 

1  5peed(2),  angle(2),  accmax(2).  wvllh(2),  ampl(2), 

2  motion(NN),  lO(NN),  xO(NN),  yO(NN),  vxO(NN),  vyO(NN) 
common  /where2/  nrg.  rgO,  rg,  s(3) 

common  /yy/  lhide(2) 

c  V7.4 

BLOCK  DATA  BLKDAT 
include  'common. h’ 
data  color,  pi,  twopi,  deg 
1  /'Blue',  'Red  ',  3.141592654,  6.283185308,  57.29577951/ 
data  ALL,  NULL,  FLS  TGT  /O,  0,-1/ 
data  FD,  TO,  FE  /I,  2,  3/ 
data  TURRET,  HULL  /I,  2/ 
data  BLU,  RED  /I,  2/ 

data  MEETNG,  RATTAK,  BATTAK  /I,  2,  3/ 
data  ALIVE,  MKILL,  FKILL,  MFKILL,  IKILL,  KKILL  /1,2.3,4.5,6/ 
dataSLOWNG,  STATNY,  ACCELG,MAXVL 
1  /1, 2,3,4/ 

data  keym  /20*0/ 

END 
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INTENTIONALLY  LEFT  BLANK 
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2.  TOP  LEVEL  ROUTINES 


The  Tank  Wars  routines  are  in  a  hierarchy.  The  routines  discussed  in  this  section  are  at  the  top  of 
the  hierarchy.  They  read  input,  loop  through  parameters,  and  produce  summary  statistics,  rather  than 
dealing  with  the  specifics  of  a  single  engagement.  Main,  and  waves  take  the  burden  of  changing  parame¬ 
ters  off  the  user.  They  simply  read  the  input  and  vary  parameters.  Then  with  the  parameters  set,  execute 
the  combat  model  proper.  The  parameters  varied  are  the  scenario,  the  number  of  tanks  on  each  side,  the 
opening  range,  the  number  of  threat  units  (Red)  met,  and  the  number  of  replications. 

The  diagram  below  shows  the  relationship  between  the  driver  routines  discussed  in  this  section. 
Each  routine  is  called  by  the  one  directly  above  it. 

Input  calls  several  routines  not  shown  in  the  diagram  which  read  lethality  and  accuracy  data.  They 
are  discussed  in  the  sections  describing  the  lethality  and  accuracy  routines. 

Init  also  calls  several  routines  not  shown  in  the  diagram.  They  initialize  event  routines  and  since 
they  are  conceptually  linked  with  those  routines  they  are  discussed  with  them. 

Events  is  called  once  for  each  engagement.  It  is  at  the  top  of  the  hierarchy  for  all  remaining  rou¬ 
tines.  They  will  be  discussed  in  later  sections. 


prmisc 


stats2 


2.1  Main:  Simulate  Armored  Combat.  Main  is  where  the  simulation  starts;  it  is  the  main  pro¬ 
gram  at  the  top  of  the  routine  hierarchy.  It  prints  the  version  header,  and  calls  the  input  routines,  exe¬ 
cuting  perhaps  1,000  replications  for  each  scenario  and  opening  range.  Then  it  loops  through  the  scenarios 
and  the  set  of  opening  ranges.  Main  is  small  so  that  ode  controlling  other  interesting  parameters  can  be 
added  for  parametric  studies. 

The  end  of  the  Came  file  controls  the  opening  ranges  and  the  scenarios  to  be  played.  Suppose  the 
game  file  ends  with  the  following  data: 


Game  file 

Comment 

1000,  3000,  500 
1,5,5 

2,  4,  12 

3,  12,  4 

min  range,  max  range,  range  increment 
scene,  #blue,  #red 
scene,  #blue,  #red 
scene,  #blue,  #red 

The  first  line  shown  control.s  the  opening  range  for  the  battle.  It  contains  a  minimum  range,  max¬ 
imum  range,  and  a  range  increment.  If,  for  example,  the  line  contains  these  values:  1000,3000,500,  then 
Tank  Wars  would  simulate  combat  at  1000,  1500,  2000,  2500,  and  3000  meters  opening  iange. 

The  lines  following  this  (three  in  the  example)  describe  three  scenarios  to  be  played.  Each  of  these 
lines  contain  the  scene,  the  number  of  Blue  combatants,  and  the  number  of  Red  combatants.  The  codes 
for  the  scene  are  as  follows: 


Scene  =1  A  meeting  engagement 

Scene  —  2  A  Red  attack  (the  threat  system) 

Scene  =  3  A  Blue  attack  (the  system  being  evaluated) 


For  our  example,  Tank  Wars  would  simulate  a  meeting  engagement  between  5  Blue  and  5  Red  tanks 
at  each  of  the  opening  ranges.  It  would  simulate  perhaps  1000  replications  for  each  opening  range.  Then 
it  would  repeat  the  process  for  a  12  Red  tanks  attacking  4  Blue  attacks.  Finally,  it  would  repeat  the  pro¬ 
cess  for  12  Blue  tanks  attacking  4  Red  tanks.  It  then  runs  out  of  scenario  data  and  quits. 


Code. 

cV7.10  30  COM'INlt 

c  MAIN  ROUTINE  OOTO  20 

c9  Main:  read  input  and  simulatf  scenarios.  END 

character  string(3)*ll 
include  ’common. n’ 

3  formate  #BluSs«’,i3,'  #Reds“',i3,2x,a) 

data  string  /’Meeting’, 'Red  attack  ’, ’Blue  attack’/ 

print*, ’The  Sustained  Combat  Model:  Tank  Wars  11’ 

print*, ’by  Fred  Bunn,  ph  (301)  278-6676,  autovon  298-6676' 

print*, ’Ballistic  Research  Laboratory’ 

print*, ’Aberdeen  Proving  Ground,  MD  21005’ 

print*, ’Version  7.10  Created  d/2/89' 

call  input 

read*,  minrg,  maxrg  inerg 
20  CONTINUE 

read(5,*,IOSTAT«io)  scene,  nblu.  nred 
if  (io.lt.O)  print*, ’End  of  run.’ 
if  (io.gt.O)  print*, ’Can”t  read  data.' 

IF  (io.ne.O)  STOP 

print  3,  nblu,  nred,  string(scene) 

DO  30  irg  -  minrg  maxrg,  inerg 
rgO  -  irg 
call  waves 
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2.2  Waves:  Loop  Through  Waves  of  Red  Tanks.  Waves  initializes  and  computes  summary 
statistics  and  loops  through  one  or  more  sets  of  replications.  The  summary  statistics  are  generated  by  the 
subsidiary  subroutines;  statsl,  stat82,  and  stataS.  Later  sections  discuss  these  routines  and  the  sum¬ 
mary  statistics.  Normally,  waves  loops  through  a  single  set  of  engagements  each  time  it  is  called.  This  set 
may  be  1,000  replications  of  a  case,  where  a  case  is  a  single  scenario  with  a  single  opening  range.  However, 
the  user  may  specify  multiple  sets  where  each  set  of  engagements  represents  unresupplied  Blue  tanks  in 
combat  against  a  ‘wave’  of  fresh  Red  tanks. 

The  waves  routine  was  developed  to  analyze  ammo  consumption.  If  you  aren’t  interested  in  that, 
just  set  the  number  of  waves  to  one.  The  routine  initially  pits  N  blue  against  M  red  and  does  this  for 
perhaps  1000  replications.  This  completes  the  simulation  of  the  first  wave  of  Reds.  It  then  regroups  all 
survivors  with  ammo  in  groups  of  N  blues  and  pits  them  against  M  reds  and  does  this  say  500  times.  This 
regrouping  continues  until  not  enough  Blues  are  left  to  form  a  group  or  the  routine  completes  nwaves  of 
waves. 

Normally,  Blue  tanks  with  many  cannon  rounds  will  win  or  lose  before  hardly  any  of  them  run  out 
of  ammo.  This,  of  course,  would  not  be  the  case  if  the  Blue  systems  are  armed  with  just  a  few  missiles; 
many  of  them  might  run  out  of  ammo  before  the  engagement  ends. 

Waves  checks  to  see  if  multiple  waves  of  Red  tanks  are  being  simulated  and  if  there  will  be 
sufficient  space  to  record  the  ammo  expended  by  the  Blue  tanks.  If  there’s  not  enough  space  and  multiple 
waves  are  being  simulated,  waves  prints  a  message  and  skips  the  current  case.  Otherwise,  it  runs  the 
current  case.  For  example,  if  nwaves  >  1,  multiple  waves  are  being  simulated.  If  the  number  of  replica¬ 
tions  for  the  first  wave  is  nreps=1000,  and  if  the  number  of  blue  combatants  in  an  engagement  is  nblu=4, 
waves  will  skip  this  case  because  only  3,000  ammo  consumption  values  can  be  saved  but  there  may  be  as 
many  as  4,000  survivors  whose  ammo  consumption  must  be  recorded. 

If  there’s  no  problem  recording  ammo  consumption,  the  code  proceeds  to  run  the  current  case.  It  ini¬ 
tializes  scenario  statistics,  executes  multiple  replications  of  the  engagement  and  generates  summary  statis¬ 
tics. 


Key  variables  and  relations  are: 


CODE 

COMMENT 

nreps 

#  replications  (engagements)  to  simulate  during  the  first  wave. 

nblu 

#  of  Blue  tanks  in  an  engagement. 

nwaves 

Maximum  #  of  waves  of  Red  units  Blue  systems  will  combat. 

kshot(2,20) 

Table  of  shot  outcome  statistics. 

kount(2,20) 

Table  of  survivor  statistics. 

nused(3000) 

Array  of  ammo  consumption  for  fully  functional  Blue  survivors. 

nreps3 

Total  #  replications  fought  in  all  waves. 

nreps2 

#  replications  fought  in  current  wave. 

nsurv 

#  fully  functional  Blue  survivors  in  current  wave. 

nwave 

#  of  current  wave. 

iseed2  ' 

Saves  starting  random  number  seed  to  print  with  summary  statistics. 

nrg 

Range  band,  =1  for  opening  range  near  500  meters,  4  near  2000  meters,  etc. 

iseedS 

Saves  starting  random  number  seed  of  wave. 

keyd(5).gt.O 

Implies  events  scheduled,  canceled,  and  executed  should  be  printed 
when  scheduled,  canceled,  or  executed. 

nsurv, It. nblu 

True  when  not  enough  fully  functional  survivors  to  send  nblu  tanks  into  the 
next  engagement. 

nwave. eq. nwaves 

True  when  the  current  wave  equals  the  maximum  #  of  waves  desired. 

iuse 

^  of  survivors  available  for  regrouping  during  later  replications  of 
the  current  wave. 
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Code, 


c  V7.H 

SUBROUTINE  WAVES 
c  7  Waves:  loop  thru  waves  of  red  tanks, 
include  'common. h' 
common  /crandm/  irandm 

common  /inpwav/  keyd(S),  nwaves,  neval,  nused(3000) 
integer  kount(2,20) 
logical  done 
c 

if  (trace)  print  *,’>  waves’ 

DP  (nreps*nblu.gt.3000  .and.  nwaves.gt.l)  THEN 
print  *, 'WAVES:  Too  many  reps  or  blues. ’,nreps,nblu 
ELSE 

c  Initialize  scenario  statistics 
DO  10  i-1,20 
kshotfl.i)  0 
kshot(2,i)  =  0 
kounUl.i)  —  0 

kount(2,i)  "•  0 
10  CONTINUE 

DO  30  i-1,3000 
nused(i)  ->  0 
30  CONTINUE 

print*, 'Starting  seed=’, irandm 

nreps3  -■  0 

nreps2  —  nreps 

nsurv  —  0 

nwave  —  0 

40  CONTINUE 

c  Loop  thru  up  to  n  waves  of  red  tanks 
nwave  -•  nwave+1 
iseed2  —  irandm 
nrg  —  rgO/irginc 
DO  SO  i-15,20 
kount(2,i)  —  0 
so  CONTINUE 

DO  60  nrep  »  l,nreps2 

c  Simulate  a  single  engagement  (replication). 

iseed3  irandm 
call  reset(keyd(S).gt.O) 
call  creset 
call  init 
call  events 

call  stats3  (keyd(l), nrep, kount,iseed3, nsurv, nused) 

60  CONTINUE 

c  Update  statistics  and  see  if  all  waves  are  done. 

nreps3  —  nreps3+nreps2 
call  stats2(nwave,nwaves,nreps2,kount) 
done  —  nsurv. It.nblu  .or.  nwave. eq. nwaves 
IF  (done)  GOTO  80 

c  Find  #reps,  #BIue  tanks,  #unused  Blues  for  next  wave. 
nreps2  —  nsurv/nblu 
iuse  —  nreps2*nblu 
kount(l,l)  —  kount(l,l)-iuse 
nsurv  —  nsurv-iuse 
GOTO  40 

80  call  statsl  (nwave,nreps3,kount) 

ENDIF 

if  (trace)  print  *,’<  waves’ 

EW 
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2.3  Events:  Call  Each  Event  in  Sequence.  Events  is  the  heart  of  the  program  because  it  con¬ 
trols  the  simulation  of  single  engagements.  It  loops  until  it  finds  a  finish  event.  Until  then,  it  finds  the 
most  imminent  event  on  the  event  list  and  branches  to  the  appropriate  event  routine.  The  event  routine 
then  simulates  the  event.  The  process  of  finding  the  next  event  and  executing  it  continues  until  a  finish 
event  occurs. 

Events  is  a  simple  loop  which  calls  event  to  return  the  next  event  and  branch  to  one  of  the  many 
events. 


Key  variables  are: 


Code. 


c  V7.5 


CODE 

COMMENT 

what 

The  event  name.  character*6 

who 

The  ID  of  the  tank  (or  bullet),  integer 

whom 

The  ID  of  the  target  (if  any),  integer 

t 

Simulated  time  (sec). 

END 

SUBROUTINE  EVENTS 
c  9  Events:  call  each  event  in  sequence, 
include  ’common. h’ 
character’s  what 
integer  who,  whom 


if  (trace)  print  *,’>evenls’ 

10  CONTINUE 

call  event  (who,  what,  whom,  t) 

IF  (what.eq. 'search')  'THEN 
call  search  (t) 

ELSEIF  (what.eq, 'vanish'!  THEN 
call  vanish  (t,who,whom) 

ELSEIF  (what.eq.'appear’l  THEN 
call  appear  (l,who,whom) 

ELSEIF  (what. eq.'detect’l  THEN 
call  delect  (I, who, whom) 

ELSEIF  (what.eq. 'select')  THEN 
call  select  (t,who) 

ELSEIF  (what.eq. ’^fire  'ITHEN 
call  fire  (t, who, whom) 

ELSEIF  (wnat.eq. 'impact')  THEN 
call  impact  (t,who) 

ELSEIF  (what.eq. 'damage')  THEN 
call  damage  (t,who,whom) 

ELSEIF  (what.eq.'slowup’)  THEN 
call  slowup  (t,who) 

ELSEIF  (what.eq.'halt  ’)  THEN 
call  halt  (l,who) 

ELSEIF  (what.eq. “^accel  ')THEN 
call  acceir  (t,who) 

ELSEIF  (what.eq.’maxvel’)  THEN 
call  maxvel  (t,who) 

ELSEIF  (what.eq. 'ikill  ')THEN 
call  laleki  (t,who,wnom) 

ELSEIF  (what.eq.’hide  ’)  THEN 
call  hide  (t,who) 

ELSEIF  (what.eq. 'reload')  THEN 
call  reload  (t,who) 

ELSEIF  (what.eq.’popdn  ’)THEN 
call  pop  dn  (l,who) 

ELSEIF  (what.eq.’finish’)  THEN 
GOTO  99 
ELSE 

print*, 'EVENTS:  what— ', what,’  who—’ 
1  ,who,’  whom— ', whom,'  time— ',l 
print*, 'Contact  Fred  Bunn' 

STOP 
END  IF 
GOTO  10 

99  if  (trace)  print  *,’<events’ 
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2.4  Input:  Read  Game  Control  File.  This  routine  reads  game  control  information  from  what  we 
call  the  Game  File  which  is  assumed  to  be  the  standard  input  (Fortran  unit  5).  The  Game  File  lists  other 
files  that  contain  accuracy,  lethality,  and  miscellaneous  data  for  the  Blue  and  Red  tanks.  When  the  input 
routine  reads  these  file  names,  it  calls  lower  level  routines  to  read  these  files. 

For  the  most  part  the  values  read  here  are  described  in  the  earlier  section  entitled:  Data  Structure. 
They  are  further  described  in  the  Tht  Sualaintd  Combat  Model:  Tank  Wars  II  Usere '  Manual. 

Code. 


c  V7.9 

SUBROUTINE  INPUT 
c  9  Input:  read  game  control  file, 
include  ’common. h' 
character*32  Tname 
integer  indx(S) 
common  /crandm/  irandm 

common  /inpwav/  keyd(5),  nwaves,  neval,  nused(3000) 

1  rormat(il,lx,a32) 

2  rormat(2x,a,r6.2) 
c 

read(S,*)(keyd(i),i— 1,5) 
trace— key  dfdj.gt.O 
histry  —  keyd(l).ge.2 
iecho— keyd(2) 
read{5,*)INDX 
DO  20  i-1,5 

if  (indx(i).gt.l  .and.  indx(i).le.20)  keym(indx(i))— 1 
20  CONTINUE 
read(5,*) irginc 
rgincr  —  irginc 

read(5,*)  nreps,  nwaves,  iangd,  METHSM,  irandm 
read(S,*)  tmax 
read  *,  sun 
read(5,l)  k,  fname 
invisD  —  k 

IF  (iecho. gt.O)  THEN 
print*, 'ENVIRONMENT:' 
print  2,'Illumination  is  ',sun,'  It-candles.' 
ifliangd.eq.ll  print*, 'Using  cardioid  distribution.' 
if(iangd.eq.2)  print*, 'Using  frontal  distribution.' 
print.'Rg  increment  for  all  tables  is', irginc, 'metres' 
ENDIF 

IF  (k.eQ^.l)THEN 

print  *,'  Terrain  parameters  are  hardwired  now' 
ELSE 

print*,'  Playing  smoke' 
call  rdsmk(rname) 

ENDIF 

read(5,l)  k,  fname 
call  rdmisc(fname,BLU,sun, iecho) 
read(5,l)  k.  fname 
call  rderor(fname,BLU,iecho) 
c  Read  pkh  aata  for  Blue, 
read  1,  k.  fname 

if  (k.eq.lj  call  rdpkhlffname.BLU, iecho] 
if  |k.eq.2]  call  rdpkh2(fname,BLU, iecho] 
if  (k.eq.5)  call  rdpkh5(fname,BLU, iecho) 
read(5,l)  k,  fname 
call  rdmisc(fname,RED,sun, iecho) 
read(5,l)  k.  fname 
call  rderorffname, RED, iecho) 
c  Read  pkh  aata  for  Rec. 
read  1,  k,  fname 

if  (k.eq.l)  call  rdpkhl(fname,RED, iecho) 
if  {k.eq.2)  call  rdpkh2(fname,RED,iecho) 
if  (k.eci.5)  call  rdpkhSffname, RED, iecho) 
if  (trace)  print  *,’<input' 

EIW 


16 


2.5  Rdmisc:  Read  Miscellaneous  Tank  Characteristics.  This  routine  simply  reads  data  values 
and  if  an  echo  is  desired,  calls  the  prmisc  routine.  It  then  prints  the  name  of  the  miscellaneous  data  file 
used. 

An  earlier  section  entitled:  Data  Structure,  and  the  Users’  Manual  describes  the  variables  read  by 
rdmisc. 


c  V7.7 

SUBROUTINE  RD  MISC  (fname.n.sun.iecho) 
c  9  Rd  misc:  read  miscellaneous  tank  characteristics, 
c  fname  -  Hie  name, 
c  n  -  #  of  side.  Blue— 1,  Red— 2 
include  'common. h' 
character  rname*32 
real  high(2) 
c 

if  (trace)  print  •,'>Rdmisc' 
open(4,  file— fname,  status— 'old') 
rewind  4 

c  Read  vehicle  characteristics. 

read(4,*|  (sysdim(3-n,i),i-l,8) 
read(4,*)  ndecoy(n),  nnash(n) 
c  Read  round  characteristics. 

read(4,*)  kindrd(n),  nrds(n),  reliab{n) 
read(4,*)  (lof(n,i),i-l,8) 
c  Read  acquisition  characteristics. 

read(4,*)  kview(n),  ndets(n) 
read(4,*)  pfalse(n,l),  pfalse(n,2),  pinp(n) 
read(4,*)  share(n) 

c  Read  target  selection  criteria. 

read(4,*^)  nprior(n),  reckni(n) 
c  Read  tire  cycle  characteristics. 

read(4,*)  ishtfs(n),  loader(n),  tcon(n),  tvar(n) 
read(4,*)  nchans(n) 
read(4,*j  (tfirst{n,i),i-l,8) 
read(4,*j  nrpb(n).  rof(n) 
read(4,*)  nipoQs(n),  trelod(n) 
c  Read  disengagement  policy. 

read(4,*)  ibump,  nbump(n) 
tbumpfn)  —  ibump 
read{4,*)  taclic(n),  nrpt(n),  llook(n) 
c  Read  motion  characteristics. 

read(4,*)  accel(n),  decel(n),  speed(n),  thide(n) 
close  (4) 

high(l)  —  sysdim(3-n,l) 
high{2)  -  high(l)  +  sysdim(3-n,5) 
call  initnv(n,kview(n), sun, high) 
if  (iecho.gt.O)  call  prmisc(n) 
print  *,  'Misc  file  is:’, fname 
if  (trace)  print  *,'<rdmisc' 

EJW 
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2.6  Prmisc:  Print  Miscellaneous  Tank  Characteristics.  This  routine  simply  prints  the  miscel¬ 
laneous  data  with  labels.  It  documents  the  values  read  in  and  allows  the  user  to  verify  that  the  input  was 
correctly  prepared. 


c  V7.9 
c3 


1 

2 

3 

i 

6 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

7 

1 

2 

1 

1 

1 

1 

1 

8 
9 


SUBROUTINE  PR  MlSC(n) 

Pr  misc:  print  misc  tank  characteristics, 
include  'common. h’ 
integer  irg(8) 
character*25  bar 

data  bar/’—————-———*——’/ 

rormat/i8,lx,a) 

formatir8.2,lx,a) 

rormat{f8.0,lx,a)  1 

rormatl9x,a) 

formati/,  1 

’  TARGET  DIMENSIONS:’, 28x, ’MOTION  CHARACTERISTICS:’,/, 
’  Distance  (m)  from  center  of’,  1 

19x, ’ Acceleration  ,f6.2,’  m/s**2’,/, 

’  turret  ring  to:’, 31x, ’Deceleration’, f6. 2,’  m/s**2’,/,  1 

’  Turret  top  ’,16.2,’  Ground  ’,f6.2,9x, 

’  Time  to  hide’, f6.2,’ sec’,/,  1 

’  Turret  Side  ’,16.2,’  Hull  side  ’,f6.2,9x, 

’  Combat  speed’, f6. 2,’  m/s’,/, 

’  Turret  front’, f6,2,’  Hull  front’, f6.2,/, 

’  Turret  back  ’,f6.2,’  Hull  back  ’,f6.2,/) 
format!/, 

9x,’ - DETECTION  CAPABILITY . ’, 

'  . FIRING  CYCLE-—’ 

./:  Rg  p  -del  (ever)  Pdet  (1  sec)  ', 

•  Tfirst  Tfixed  Tfly',/, 

'  FE-M  HD  FE  FE-M’, 


HD  FE 

(sec)  (sec)’. 


8(i7,f7.2,2f6.2,f8.2,2l 


format!’ 

formal! 


'l‘7'.2,f7.1 


r8.1,f8.2,/)) 


Temporarily  discard  after  firing’, i2,'  shots.') 

2.  M&F  kill  and'.N.O,'  sec  elapse  or  tank  fires’. 


if  (k.eq.ll  print  4, ’Selects  old,  hit  tgts  over  new  tgls.’ 
if  (k.eq.2)  print  4, ’Selects  new  tgls  over  old  hit  tgts.’ 
print  3,  recknz(n),’Recognilion  rg.  (for  tgt  priorities. Xm)’ 
print* 

print*, ’FIRE  CYCLE  CHARACTERISTICS:’ 
ihishtfslnl.gt.Olprint  4, ’System  halls  to  fire.’ 
if(ishtfs(nj.eq.O)print  4, ’System  fires  on  the  move’ 
k— loader  (^n) 

if  (k.eq.l)  print  2,  tvar(n), 

’Median  time  between  rounds  for  manual  loader  (sec).’ 
if  (k.eq.2)  print  2,  tcon(nl, 

’Minimum  time  for  load  assist  (sec).’ 
if  (k.eq.2)  print  2,  tvar(n), 

’Median  additional  time  for  load  assist  (sec).’ 
if  (k.eq.3)  print  2,  lcon(n), 

’Minimum  lime  for  autoloader  (sec).' 
if  (k.eq  3)  print  2,  tvar(n), 

'Median  lime  for  autoloader  (sec).' 
print  1,  nchans(n), 'guidance  channels. ’ 
it  —  nrpb(n) 

if  (k.gl.ll  print  l,nrpb(n),’Rounds/bursl.’ 
if  (k.gt.l)  print  2, rof(n), 'between  rds  in  a  burst  (sec).’ 
k— kindrd(n) 

if  (k.eq. 4)  print  1,  nipods(n), ’missiles/pod  ' 

if  (k.eq. 4)  print  2,  trelod(n),’Time  to  change  pods  (sec).’ 

print* 

print*,  TARGET  SWITCHING  CRITERIA:’ 
print  *,  'Permanently  discard:' 
print  *,  '1.  K-killed  targets. ’ 
print  9,  Ibump(n),  nbump(n) 
k  —  taclic(n) 


if  (k.eq.2)  print  *,  'Temporarily  discard  after  scoring  a  hit’ 
1  i2,’ rds  at  it.')  if  lk.eq.3)  print  8.  nrpl(n) 

if  (k.gt.l)  print  2,  tlook(n), 

1  'Search  lime  until  re-engaging  an  old  igl  (sec).’ 
print  * 

_  . . bar//'BLUE  SYSTEM  CHARACTERISTICS’//baDf  (trace)  print  *,’<  prmisc' 

eq.2)  print  *,  bar//'RED  SYSTEM  CHARACTERISTICS’//bar  END 


Write  header 
print* 

if  (n.eq.l)  print 
if  (n.eq.2)  print 
Write  target  dimensions  and  motion  characteristics 
print  6,  accel(n),decel(n). 


5),  lhide(^n 
5),  speed)  n 


1  sysdim(3-n,i),  sysdim(3-n,5 

1  sysdim(3-n,2),  sysdim(3-n,6_ 

1  (sysdim(3-n,i),  sysdim(3-n.i+4),i— 3,4 

k-ndecoy(n) 
if  (k.gl.Ol  print  l,ndecoy(n), ’decoys.’ 
if  (k.gl.O)  print  l,nflash(n). 'flashing  decoys 
c  Write  range  dependent  values 
DO  50  i-1,8 
irg(i)  -  i*irginc 
50  CONTINTJE 


print  7, 

1  ('rgl')-  (pinfin(n,j,i),j-l,3),  (pdet(n,j,i),j-l,3). 

1  tfirstln,i),9.99,  tof(n.i),i-l,8) 

print*, 'ROUND  CHARACTERISTICS:' 
k— kindrd(n) 

if  (k.eq.l)  print  1.  nrds(n),’KE  rounds/tank.' 
if  (k.eq.2)  print  1,  nrds(n),’HEAT  rounds/tank.’ 
if  (k.eq. 41  print  1,  nrdsinj, ’missiles/system.’ 
if  (k.eq. 5)  print  1,  nrds(_n).’lop  attack  rounds/lank  ’ 
print  2,  reliab(n), 'Reliability  of  round.' 
print* 

print*, 'ACQUISITION  CHARACTERISTICS: ' 
if  (kview(n).eq.ll  print  4, ’Visual  sensor’ 
if  (kview(n).eq.2)  print4, ’Thermal  sensor' 
print  1,  ndets(n),’detections  at  a  time.’ 
print  2,  pfalse(n,l),'Probability  of  selecting  false  HD  tgt.' 
print  2,  pfalse(n,2),’Probability  of  selecting  false  FE  tgt.’ 
print  2,  pinp(nj. 'Probability  of  pinpoint  detection.' 
if  (share(n))  print  4, 'Systems  communicate  tgt  locations.' 
if  (.not.snare(n)) 

1  print  4, 'Systems  DO  NOT  communicate  tgt  locations, ' 
print* 

print*, 'TARGET  SELECTION  CRITERIA:’ 
k-nprior(n) 


18 


2.7  Init:  Initialise  for  a  Single  Engagement.  Init  initializes  many  variables  to  the  values 
appropriate  to  the  beginning  of  an  engagement.  It  then  calls  specialized  initialization  routines.  These 
lower  level  routines  are  tightly  coupled  to  other  routines  and  will  be  discussed  in  the  appropriate  sections. 

The  diagram  below  shows  the  relationship  of  the  various  initialization  routines.  Those  in  dashed 
boxes  are  discussed  elsewhere. 


init 

r - 

ter 

- 1 

ain 

First,  the  code  schedules  a  finish  event  to  make  sure  the  engagement  ends  in  a  reasonable  time. 
Then  values  are  set  for  each  tank  and  tank/target  pair  as  shown  in  the  table  below. 


CODE 

INITIAL 

VALUE 

COMMENT 

busy 

F 

FOR  EACH  TANK  I 

Tank  is  not  busy,  (busy  inhibits  selecting  a  new  target) 

empty 

F 

Tank  has  ammo. 

idecoy 

0 

Tank  is  not  a  decoy. 

iflash 

0 

Tank  is  not  a  flashing  decoy. 

life 

ALIVE 

Tank  is  mobile  and  lethal 

ndet 

0 

Tank  has  detected  zero  targets. 

nhot 

0 

Tank  has  achieved  no  hits  on  a  target. 

nrd 

0 

Tank  has  fired  zero  rounds. 

nrtgt 

0 

ID  of  target  is  NULL. 

nchan 

0 

Tank  has  no  guidance  channels  busy. 

nrot 

0 

Tank  has  achieved  no  rounds  on  target  yet. 

tfire2 

0 

Time  tank  last  fired  is  NT. ILL. 

los 

F 

CLEAR  NN  by  NN  MATRICES 

Line-of-sight  does  not  exist. 

missed 

F 

Tank  has  not  missed  target. 

mot 

F 

Firer  has  no  missile  assigned  to  target. 

fot 

F 

Firer  is  not  engaging  target. 

see 

F 

Firer  doesn't  see  target. 

tfire 

F 

Time  tank  last  fired  at  tgt  is  NLTL. 
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CODE 


INITIAL 

VALUE 


COMMENT 


FOR  EACH  TANK’S  GUIDANCE  CHANNEL 

chanel 

0 

Channel  assigned  to  guide  NULL  missile. 

FOR  EACH  BLUE-RED  PAIR 

los 

T 

Line-of-sight  exists  between  foes. 

Next,  the  code  calls  deploy  to  define  the  initial  position  velocity,  side,  and  cover  for  each  tank. 
Then  it  calls  detrg  to  find  how  far  each  tank  can  see.  After  that,  it  calls  ter&in  and  smoke  to  set  up  ter¬ 
rain  and  smoke  conditions.  Next,  it  resets  some  values  if  some  of  the  systems  are  decoys.  Finally,  it  calls 
searcO  so  that  each  tank  will  begin  searching  for  targets. 


c  V7.5 

SUBROUTINE  INIT 

c  4  Init:  Initialize  scenario  &  schedule  search  at  time  zero, 
include  'common. h’ 
logical  missed,  ok 

common  /MayPri/  missed(NN,NN) 
save  /MayPri/ 


c 


c 


20 


30 

40 


42 

4S 


c 


50 


if  (trace)  print  *,'>Init’ 

call  skedul(tmax,0, 'finish', NULL) 

Set  state  variables  for  both  red  and  blue  systems. 
DO  40  I“l,nblu+nred 
busy(I)  —  .false, 
emptyfl)  —  .false, 
idecoyfl)  —  0 
iflash(I)  —  0 
life(I)  -  ALIVE 
ndetfl)  —  0 
nhotfl;  ••  0 
nrd(I)  -  0 
nrtgt(I]  -  0 
nchan(l)  —  0 
nrot(lj  -  0 
tfire2(l)  -  0.0 
DO  20  it— l,nblu+nred 
Ios(I,it)  —  .false. 
missed(l,it)  —  .false. 
mot(I,it)  —  .false. 
fot(I,it)  —  .false. 
see(I,it)  —  .false. 
tfire(I,itl  —  0.0 
CON'TINUE 
DO  30  k-1,5 
chanel(l,I,k)  —  0 
chanel(2,I,k)  —  0 
CONTINUE 
CONTINUE 
DO  45  i— l.nblu 
DO  42  k— l,nred 
j  -  nblu+k 
los(i,j)  —  .true. 
los(j,i)  —  .true. 

CONTINUE 
CONTINUE 
call  deploy 

call  detrg(BLU, l.nblu) 

call  detrg(RED,nblu+l,  nblu+nred) 

ok  —  scene. eq.BATTAK  .and.  invisb.eq.l 

if  (ok)  call  terain(l,nblu) 

ok  —  scene.eq.RATTAK  .and.  invisb.eq.l 

if  lok)  call  terainlnblu+1, nblu+nred) 

if  (invisb.ne.l)  call  smoke 

Initialize  some  as  decoys. 

DO  50  I-l,ndecoy(BLU) 
idecoy(I)  —  1 

if  I.le.nflash(BLU))  iflash(I)  -  1 
if  (l.gt.nflash(BLU))  nrd(l)— 999 
CONTINUE 
DO  60  j— l,ndecoy(RED) 


I  —  nblu+j 
idecoy(I)  —  1 

if  j.le.nflash(RED))  iflash(I)  -  1 
if  (j.gt.nflash(RED))  nrd(I)— 999 
60  CONTINUE 
call  searcO 

if^ace)  print  •,'<Init' 


2.8  Statsl:  Print  Summary  Statistics.  Statsl  generates  and  prints  the  final  statistics  for  a 
case.  Its  output  summarizes  the  results  of  combat  for  hundreds  of  engagements  at  a  single  opening  range 
for  a  single  scenario.  The  combat  summarized  here  may  include  many  engagements  for  multiple  waves  of 
Red  systems. 

Statsl  generates  and  prints  summary  results  as  shown  below; 

RESULTS  #  90%  CONFIDQJCE 


Blue  won  54  or 

Red  won  46  or 

Draw  0  or 

All  dead  0  or 

TOTAL  REPS  100  or 

(Red  k-killed) /{Blue 

ROUNDS  FIRED  BY 

0.540  0.454 

0.460  0.376 

0.000 

0.000 

1.000 

k-killed)  - 

Blue  Red 

0.625 

0.547 

3.112 

SYSTIM  STATUS 

Blue 

Red 

Fired 

809 

709 

Alive 

103 

134 

Wasted 

0 

0 

M-killed  only 

0 

0 

Aborted 

0 

0 

F-killed  only 

4 

6 

False  Tgts 

0 

0 

M&F-killed  only 

23 

31 

Hidden  tgts 

6 

0 

K-killed 

170 

529 

Impacting 

803 

709' 

TOTAL 

300 

700 

Misses 

4 

393 

deunaged 

197 

566 

Hits 

799 

316 

Alive  1-5  rds 

0 

0 

Duds 

6 

4 

Alive  no  rds 

0 

0 

No  damage 

65 

41 

•future 

0 

0 

M-kill  only 

2 

0 

•future 

0 

0 

F-kill  only 

29 

8 

•future 

0 

0 

MSF-kill  only 

163 

90 

•future 

0 

0 

K-kill 

534 

173 

•future 

0 

0 

First,  statsl  generates  and  prints  the  6  upper  lines  summarizing  the  outcomes  of  the  engagements. 
Then  it  generates  a  few  final  numbers  including  the  tank  total  and  damage  total  under  SYSTEM 
STATUS.  Finally,  the  code  prints  these  numbers,  along  with  the  summary  of  shot  results. 

After  printing  some  header  lines,  statsl  generates  and  prints  the  four  possible  outcomes;  Blue  won, 
Red  won,  draw  with  survivors  on  both  sides,  and  draw  with  no  survivors.  For  each  of  these  outcomes,  it 
gives  the  number  of  engagements  with  that  outcome,  the  fraction  of  engagements  with  that  outcome,  and 
perhaps  the  confidence  interval.  In  the  table  above,  statsl  is  90%  confident  that  the  probability  of  blue 
winning  is  between  the  confidence  interval  .454  to  .625.  If  the  sample  size  is  too  small,  statsl  cannot  gen¬ 
erate  a  confidence  interval. 

All  this  is  done  in  the  DO  50  loop.  The  tally  of  outcomes  is  stored  in  kount(l,i),  i=15,18.  Frac  is 
the  fraction  of  engagments  with  each  outcome.  Conf  is  called  to  find  the  binomiai  confidence  interval. 
Near  the  end  of  the  loop,  the  result  line  is  printed. 

If  any  Blue  tanks  were  k-killed,  statsl  finds  the  exchange  ratio.  The  exchange  ratio  is  the  number 
of  Red  tanks  k-killed  per  Blue  k-killed.  If  Blue  tanks  were  k-killed.  the  exchange  ratio  is  printed,  other¬ 
wise  a  zero  is  printed. 

The  DO  30  loop  adds  all  tanks  on  each  side  that  are  alive,  m-killed  only,  f-killed  only,  m&f-killed 
only,  and  k-killed  to  get  the  TOTAL  line.  The  number  of  damaged  tanks  is  the  total  number  of  tanks  less 
the  number  alive.  The  number  of  Blue  alive  with  1-5  rounds  is  then  copied  from  kount(l,19)  to  kount(l,8) 
and  the  number  of  Blue  alive  with  no  rounds  is  copied  from  kount(l,20)  to  kount(l,9). 

Finally,  statsl  prints  the  results  of  the  rounds  and  the  status  of  the  tanks  (or  other  weapon  system). 
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CODE 

MATH 

COMMENT 

nwave 

nreps3 

kount(i,j) 

number  of  current  wave 

total  number  of  replications  executed 

table  of  tank  status  at  end  of  combat 

hi 

lo 

fail 

^l,5>  ^2,6 

t,5>0 

upper  limit  of  confidence  interval 
lower  limit  of  confidence  interval 

True  if  there  is  not  enough  data  to  find  confidence  interval 
#  Blue  Sl  Red  K-killed 

Test  to  avoid  divide  by  zero 

exch 

*  ==  ^2,5/^  1,5 

exchange  ratio 

c  V1.2 

SUBROUTINE  STATSl  (nwav»,nreps3,kount) 
c  0  Statsl:  Update  and  print  statistics  for  1  wave, 
include  'common. h’ 
integer  kount(2,20) 
character  str(3)*4,  str2(4)’9 
character  str3(14)*20,  str4(14)*20 
logical  fail 
real lo 

datastr /'Mtg '.’Ratk'.'Batk'/ 

data  str2/’Blue  won 'Red  won ', 'Draw  ', 'All  dead '/ 
data  str3/'Fired','  Wasted','  Aborted','  False  Tgts', 

1  '  Hidden  tgts','  Impacting','  Misses',’  Hits', 

2  '  Duds',’  No  damage’,'  M-kill  only’, 

3  ’  F-kill  only’,’  M&F-kill  only',’  K-kill’/ 
data  str4/’Alive’,'M-killed  only','F-killed  only’, 

1  'M&F-killed  only', 'K-killed', 'TOTAL', 'damaged', 

2  'Alive  1-5  rds', 'Alive  no  rds', '‘future’, '‘future’, 

3  '‘future’, '‘future’, '‘future’/ 

1  format(2x,a,tl4,i5,’  or',3r7.3) 

2  format(2x,a,t37,f6.3) 

3  format(2x,a,t23,2i6,t42,a,t62,2i6) 

4  format  ’  ROUNDS  FIRED  BY',8x, 'Blue  Red', 

1  7x, 'SYSTEM  STATUS’, gx, 'Blue  Red’) 

c 

if  (trace)  print  ‘,’>statsr 
c  Print  summary  of  outcomes. 

print‘ 

print‘, 'SUMMARY' 

print  ‘,’RESULTS  #  g0%  CONFIDENCE' 

DO  50  i-1,4 
n  —  kount(l,i-H4) 
frac  —  float(n)  /nreps3  +  0.0004999 
call  confb(frac,nreps3,hi,lo,fail) 
if  (fail)  print  1,  str2(i),n,frac 
if  (.not. fail)  print  1,  slr2{i),n,rrac.lo,hi 
50  CONTINUE 

print  1,  'TOTAL  REPS', nreps3,  1.00 
exch  —  0.0 

if  (kount(l,5).gt.O)  exch-float(kount(2,S))/kount(l,5) 
print  2,’(Red  k-killed)/(Blue  k-killed)  —'.exch 
c  Print  round  results  and  weapon  system  status 
c  Find  system  status  totals  (6th  line  of  numbers) 

DO  30  i-1,5 

kount(l,6)— koun;(l,6)-^kount(l,i) 
kount(2,6W kount(2,6)-t-kount(2,i) 

30  CONTINUE 
c  Fill  lines  7. .9 

kount(l,7l— kounl(l,6)-kount(I,l) 
kount(2,7j— kount(2,6)-kount(2,l) 
kount(l,8W kount(l,19) 
kount(l,9)»kount(l,20) 
c  Print  results 

print  ‘ 
print  4 

print  3,  (str3(j),(kshot(i,j),i— 1,2), 

1  8tr4{j),(kount(i,j),i-l,2),j«l,14) 

if  (trace)  print  ‘,’<statsr 
END 
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2.9  Stat82;  Print  Statistics  for  a  Single  Wave.  If  several  waves  of  Reds  are  simulated  8tat82 
prints  the  results  of  the  current  wave.  Then  it  adds  the  results  of  the  current  wave  to  any  previous  waves. 


CODE 

COMMENT 

nwave 

number  of  current  wave 

nw 

maximum  number  of  waves 

nreps2 

number  of  replications  in  current  wave 

kount{ij) 

table  of  systems  status 

If  there  is  more  than  one  wave  statsl  prints  them  as  shown  below; 


Wave 

1: 

Blue, 

Red 

won 

53 

46 

Draws, 

all 

dead> 

1 

0 

Low, 

no 

ammo* 

0 

0 

Wave 

2: 

Blue, 

Red 

won 

18 

13 

Draws , 

all 

dead* 

0 

0 

Low, 

no 

aTT1fTW>= 

0 

0 

Wave 

3: 

Blue, 

Red 

won 

7 

6 

Draws , 

all 

dead- 

0 

0 

Low, 

no 

ammo* 

0 

0 

Wave 

4; 

Blue, 

Red 

won 

2 

4 

Draws , 

all 

dead- 

0 

0 

Low, 

no 

dUniDO^ 

0 

0 

Wave 

5: 

Blue, 

Red 

won 

0 

2 

Draws , 

all 

dead= 

0 

0 

Low, 

no 

ammo* 

0 

0 

The  DO  70  loop  sums  the  results  by  adding  the  results  for  this  wave  to  the  results  of  previous  waves. 
kount{l,15)  is  the  number  of  times  Blue  won  in  all  engagements,  kount(l,16)  is  the  number  of  times  Red 
won  in  all  engagements,  and  so  on.  The  first  column  tends  to  act  as  a  final  counter  of  all  waves  performed, 
while  the  second  column  acts  as  a  counter  for  one  wave. 


c  V1.2 

SUBROUTINE  STATS2  (nwave,nw,nreps2,kounl) 
c  0  Wave2;  Update  and  print  statistics  for  1  wave, 
include  'common. h’ 
integer  kount(2,20),  nU) 

1  formate  Wave',i2,':  Blue,  Red  won',2i4,’  Draws,  all  dead—’, 
1  2i3,'  Low,  no  ammo— ',2i3) 

if  (trace)  print  •,'>stats2’ 
if  (nw,gt.l)  print  1,  nwave,(kount(2,i),i— 15,20) 
c  Add  results  of  current  wave  to  results  from  previous  waves. 
DO  70i-lS,20 

kount(l,i)  —  kount(l.i)  +  kount(2,i) 

70  CONTINUE 

if  (trace)  print  *,'<stats2' 

END 
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2.10  StatsS:  Print  Statistics  for  a  Single  Engagement.  StatsS  summarizes  the  results  of  a 
single  engagement.  It  counts  the  number  of  blue  and  red  tanks  in  each  of  5  states,  and  finds  which  side 
won  the  engagement.  If  the  user  wishes,  it  prints  a  one  line  summary  of  the  engagement.  Then  it  adds  the 
single  engagement  results  to  the  results  for  previous  engagements.  Finally,  it  decides  which  blue  tanks  sur¬ 
vived  with  enough  ammunition  to  fight  again. 

The  first  three  loops  count  the  number  of  tanks  in  each  damage  state.  The  DO  5  loop  clears  the 
array  which  will  be  used  for  counting.  The  DO  10  array  count  the  blues  in  each  state  and  the  DO  20  loop 
counts  the  reds. 

The  6  possible  tank  states  are  counted  into  5  ‘buckets’  in  the  array  as  shown  in  table  1  below. 
The  tanks  in  state  4  and  5  are  both  M&F  killed  but  not  K-killed.  The  only  difference  is  that  the  foe  knows 
the  tanks  i  state  5  can’t  shoot  or  move.  But  they  are  unaware  that  the  tanks  in  state  4  can’t  shoot  or 
move  (so  they’re  still  considered  threats.)  At  the  end  of  combat,  we’re  not  interested  in  the  distinction,  so 
the  two  tank  states  are  counted  together. 

Table  1.  Counting  Tank  Statuses 


life(j) 

Status 

Result 

1 

Alive 

n(l,k)  = 

n(l,k)+l 

2 

M-only  killed 

n(2,k)  = 

n(2,k)-(-l 

3 

F-only  killed 

n(3,k)  = 

n(3,k)+l 

4 

M&F-only  killed 

n(4,k)  = 

n(4,k)+l 

5 

M&F-only  killed 

n(4,k)  = 

n(4,k)-f-l 

6 

K-killed 

n(5,k)  = 

n(5,k)-(-l 

The  next  section  of  code  finds  which  side  won  (if  any).  To  do  this,  it  checks  to  see  if  there  are  tanks 
on  each  side  that  have  received  no  firepower  damage.  The  conditions  and  results  are: 

1  Draw  if  all  blue  and  red  tanks  are  firepower  killed. 

2  Red  win  if  all  blue  but  not  all  red  tanks  are  firepower  killed. 

3  Blue  win  if  all  red  but  not  all  blue  tanks  are  firepower  killed. 

4  Draw  if  not  all  blue  and  not  all  red  tanks  are  firepower  killed. 

This  win  criteria  can  be  modified  to  consider  tanks  with  no  ammunition  and  crews  abandoning 
mobility  killed  tanks.  However,  it  leads  to  many  complications  and  should  not  be  done  until  the  model  is 
thoroughly  understood. 

Next,  if  the  user  desires,  the  code  prints  a  one  line  summary  of  the  engagement.  The  following  shows 
the  first  five  and  the  last  one  line  summary  from  a  set  of  1,000  engagements. 

#Blues=  3  #Reds=  7  Red  attack 


StcLTting  seed=  1111111 


Rep 

Result 

AL 

MO 

FO 

MF 

K 

AL 

MO 

FO 

MF 

K 

seed 

1 

Red  won 

0 

0 

0 

0 

3 

3 

0 

0 

1 

3 

1111111 

2 

Red  won 

0 

0 

0 

0 

3 

3 

0 

0 

1 

3 

32219259 

3 

Red  won 

0 

0 

0 

0 

3 

2 

0 

0 

0 

5 

20450295 

4 

Red  won 

0 

0 

0 

0 

3 

2 

0 

0 

1 

4 

45588611 

5 

Red  won 

0 

0 

0 

0 

3 

1 

0 

0 

2 

4 

54179171 

1000 

Blue  won 

2 

0 

1 

0 

0 

0 

0 

0 

0 

7 

36495111 

The  DO  30  loop  adds  the  results  of  the  current  engagement  to  the  results  of  previous  engagements  so 
that  a  summary  of  all  replications  can  be  printed  out  later. 
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Finally,  the  DO  40  loop  finds  which  blue  tanks  are  available  to  fight  a  subsequent  wave  of  red 
attackers.  If  a  tank  is  fully  functional  and  has  at  least  5  rounds  left,  it  can  play  in  a  subsequent  engage¬ 
ment.  If  fewer  than  5  rounds  are  left,  these  tanks  are  tallyed  as  having  no  or  low  ammo. 


CODE 

MATH 

COMMENT 

key 

Prints  history  iff  key  >  0. 

nrep 

Number  of  the  replication  just  completed. 

kount{i,j) 

Count  of  tanks  in  status  i  for  side  j  for  all  replications  completed  in  this  set. 

iseed 

Random  number  seed  at  start  of  engagement. 

nsurv 

Number  of  fully  functional  tanks  with  >  4  rounds  remaining. 

nused 

Number  of  rounds  remaining  for  each  blue  tank  in  the  next  wave. 

n(i,k) 

Number  of  tanks  in  status  i  for  side  k. 

nblu 

Number  of  tanks  in  blue  army 

i,  life(  ) 

Status  of  tank 

nred 

Number  of  tanks  in  red  army 

balive 

Number  of  blue  tanks  not  F-killed. 

ralive 

Number  of  red  tanks  not  F-killed. 

result 

l=draw  w/  all  F-killed,  2=Red  win,  3=Blue  win, 

4=:draw  w/  F-alive  on  both  sides. 

nrds 

Magazine  capacity. 

nrd(j) 

Number  of  rounds  fired  by  tank 

ammo 

a  =  n„-n  . 

Number  of  rounds  available  for  fire 

c  V1.3 
eO 


1 

2 

c 

c 

c 


S 

c 

c 


10 

c 


20 

c 


c 


SUBROUTINE  STATS3  (key,nrep,kounl,is«ed,nsurv,nused) 
Stal$3:  update  statistics  at  end  of  a  single  engagement, 
character  str(4)*8 

integer  ammo,  n(5,2),  kount(2,20),  balive,  ralive,  result 
integer  nused(3000) 
include  'common. h’ 

data  str  /'Blue  won', 'Red  won  ','Draw  ','All  dead'/ 
format!'  Rep  Result  ',2(’  AL  MO  FO  MF  K'),2x,'seed') 
format(i6,lx,al0,2(5i3),i9) 


if  (trace)  print  *,'>stats3' 

Count  tanks  in  each  damage  status  at  the  end  of  an  engagement 
Zero  the  counter  array. 

DO  5  j-1,5 


n(j.l)  -  0 

n(j,2j  -  0 
CONTINUE 


Count  blue  tanks  by  status. 
DO  10  j—l,nblu 
Tally  by  damage  status 
1  -  lifem 
if  (i.ge.5)  i— i-1 
n(i,l)  —  n(i,l)+l 
CONTINUE 


Count- red  tanks  by  status. 

DO  20  j— l,nred 
i  -  life(j+nblu) 
if  (i.ge.5)  i-i-1 
n(i,2)  —  n(i,2)+l 
CONTINUE 

Find  who  won  engagement,  if  anybody, 
balive  n(l,l)+n(2  1) 
ralive  -  n(l,2)+nf2,2) 
if  (balive. gt.O  .ana.  ralive. eq.O)  result  —  1 
if  (balive. eq.O  .and.  ralive. gt. 01  result  —  2 
if  (balive. gt.O  .and.  ralive. gt.O)  result  —  3 
if  (balive.eq.O  .and.  ralive. eq.O)  result  —  d 
IF  (key .ge  l)  THEN 
Print  results  of  1  engagement. 


c 


30 


c 


c 


40 


if  (nrep.eq.l  .or.  trace)  print  1 
print  2,  nrep,  str(result),  n,  iseed 
ENDIF 

Update  statistics  for  all  replications  at  1  opening  range. 
DO  30  j-1,5 


kount(l,j 
kounti 


l,j)  +  n(j,l) 
2J)  +  n(j,2) 


IF  (life(j).e 
Count  full’ 


kount(l,j) 
kount(2,j) 

CONTINUE 
kounl(2,14+result)  —  kount(2,14+result)+l 
Find  which  Blues  can  fight  a  subsequent  wave  of  Red  tanks. 
DO  40  j— l.nblu 

. . ).eq. ALIVE)  THEN 

fully  functional  Blue  tanks  by  ammo  remaining, 
ammo  —  nrds(BLU)-nrd(j) 
if  (ammo.ge.5l  nsurv  —  nsurv  +  1 
if  (ammo.ge.5)  nused(nsurv)  —  nrd(j) 
if  (ammo.lt.5.and.nrd(j).gt.0)kount(2,19)— kount{2,19)+l 
if  (ammo. eq.O)  kount(2,20)  —  kount(2,20)+l 
ENDIF 
CONTINUE 

if  (trace)  print  *,'<stats3' 

EIW 
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INTENTIONALLY  LEFT  BLANK 
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3.  SEARCH  AND  DETECTION  ROUTINES 


The  search  and  detection  routines  simulate  acquisition  of  non-firing  targets.  When  undetected, 
unmasked  targets  are  within  detection  range,  the  search  routine  is  called  once  for  each  second  of  simu¬ 
lated  time  to  find  if  a  searcher  detects  a  target  in  the  next  second. 

Originally,  all  the  search  routines  were  called  once  per  second  of  simulated  time  and  search  was  tak¬ 
ing  90%  of  the  run  time.  They  have  been  re-written  so  that  the  code  runs  five  times  faster. 

Now,  the  initnv  routine  and  it’s  subordinate  routines  are  called  twice  per  run,  once  for  Blue  and 
Red.  They  generate  tables  containing  the  probability  of  ever  detecting  a  target  and  the  probability  of 
detecting  the  target  in  the  next  second  -  given  that  it  can  be  d^tect'^.  These  tables  give  the  probabilities 
as  a  f  mction  of  range,  target  exposure,  and  target  motion.  Tnis  „  great  deal  of  run  time  by  avoiding 
repeated  calculation  of  exponentials  later. 

Further,  the  det  rg  and  searcO  routines  are  callec  at  the  beginning  of  each  engagement.  The 
former  is  called  once  for  each  side.  It  finds  the  range  witinn  which  each  tank  can  acquire  moving  or  sta¬ 
tionary  targets  in  hull  defilade  or  fully  exposed.  These  maximum  acquisition  ranges  are  stored  for  later 
use. 

SearcO  generates  a  table  containing  the  range  between  each  searcher-target  pair.  If  the  scenario  is 
stationary,  this  table  will  not  have  to  be  updated  so  the  computation  of  many  square  roots  will  be  avoided. 
If  the  scenario  has  moving  tanks,  the  table  avoids  the  calculation  of  some  square  roots.  The  routine  then 
finds  the  first  time  when  targets  are  within  detection  range  and  schedules  search  to  begin  at  that  time. 
This  avoids  repeated  calls  to  search  when  no  targets  can  be  detected. 
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3.1  Initnv:  Generate  Detection  Probability  Tables. 

Initnv  simply  calls  the  nvl  routine  with  the  appropriate  arguments  for  detection  level,  illumination, 
target  size,  and  sensor  type. 

The  variables  are: 


CODE 

n 

kind 

alumin 

high(2) 

job 


COMMENT _ 

=1  for  Blue  searchers,  2  for  Red  searchers. 

=1  for  visual  detection,  2  for  device  2. 

Illumination  (ft-candles). 

Heights  of  the  hull-defilade  and  fully-exposed  target  (meters). 
Acquisition  level  required  for  sensor. 


c  V7.3 

SUBROUTINE  INITNV  (n.kind, alumin, high) 
real  high(2),  job 

if  (kind.eq.l)  job>«3.0 
if  (kind.eq.2)  job=4.0 

c  Find  values  for  HD  stationary  target. 

call  nvl  (n,  1,  alumin,  high(l),  job,  kind) 
c  Find  values  for  FE  stationary  target. 

call  nvl  (n,  2,  alumin,  high(2),  job,  kind) 
c  Find  values  for  FE  moving  target. 

call  nvl  (n,  3,  alumin,  high{2),  0.667*job,  kind) 
END 
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3.2  NvI:  Find  Probability  of  Ever  Detecting  and  of  Detecting  in  Next  Second.  Nvl  uses 
the  Night  Vision  code  for  visual  detection  to  generate  a  table  of  probabilities.  The  table  contains  probabil¬ 
ities  that  the  target  will  ever  be  detected  as  a  function  of  range  and  condition.  The  other  table  contains 
the  probabilities  that  the  target  will  be  detected  in  a  given  second.  This  is  also  a  function  of  range  and 
condition. 

Nvl  is  code  that  was  stripped  from  a  much  larger  program  developed  by  the  Electro-Optical  and 
Night  Vision  Laboratory.  The  code  is  considered  correct,  however  details  are  unavailable. 

Assumptions.  It  has  the  following  built-in  assumptions: 

1.  Acquisition  is  divided  into  the  following  categories: 

Detection  -  there’s  something  there. 

Classification  -  it’s  tracked. 

Recognition  -  it’s  a  tank. 

Identification  -  it’s  a  T80. 

The  program  assumes  acquisition  at  the  recognition  level. 

2.  The  size  of  the  search  field  is  225  degrees  squared,  e.g.  5  degrees  high  and  45  degrees  wide. 

3.  The  visibility  range  is  7  kilometers. 

Input.  As  an  example,  suppose  the  ambient  light  level  is  300  ft-candles,  the  tank  turret  is  0.8 
meters  high,  and  the  total  tank  is  2.2  meters  high.  The  single  input  line  would  then  be:  ‘1  300.  0.8  2.2’. 
The  1  means  that  the  sensor  is  the  human  eye.  If  you  are  interested  in  other  targets,  just  input  the 
appropriate  heights.  Typical  light  levels  are: 


Ft-candles 

Typical  Day 

1000 

Clear  day 

100 

Overcast  day 

10 

Heavy  overcast  day 

1 

Sunset  overcast  day 

Output.  Figure  1  illustrates  the  output.  It  shows  the  probability  of  ever  detecting  as  a  function  of 
range,  and  the  median  time  to  detect  given  detection  is  possible. 


Range  (km) 


Figure  1.  The  Probability  of  Detecting  a  Target. 


The  output  consists  of  12  lines  of  input  echo,  then  7  lines  of  output  proper.  Line  13  is  ranges  in 
kilometers.  Lines  14-16  are  median  (7)  times  to  detect  given  that  detection  is  possible.  The  14th  line  is  for 
a  stationary,  hull-defilade  target;  the  15th  for  a  stationary,  fully-exposed  target;  and  the  16th  for  a  mov¬ 
ing,  fully-exposed  target.  Lines  17-19  are  the  corresponding  probabilities  that  the  target  will  ever  be 
detected.  The  probability  of  detecting  in  a  time  t  is  then: 


-tIT 

Pi  =  Poo^ 
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c  V7.2 

SUBROUTINE  NVL  (^n,j,alumnc,  dim,  ajob,  kind) 
c  NvI:  find  p-infinity,  pdetect  in  1  sec. 
c  n  -  #  of  army 

c  j  -  range  band. 

c  alumnc  -  illumination  in  ft-candles.  (sun?) 
c  dim  -  target  height  (m) 

c  ajob  -  acquisition  level 

c  kind  -  kind  of  sensor.  (1—eye) 

common  /sensor/  psense(2,8),  pinfin(2,3,10),  pdet(2,3,10), 
1  ndets(2),  tlook(2),  pinp(2),  repeat,  recknz(2),  pfalse(2,2) 
save  rinfd,  zone,  visrg 
data  zone,  rinfd  /225.,  .1/ 
data  visrg  /7./ 
c 

DO  20i-l,10 

c  Find  probabilities  and  median  times  for  8  ranges, 
rc  ••  0. 
pinf  «  0. 
tbarr  —  999. 
range  »  0.5*i 
attn  »  3.912/visrg 
IF  (kind.eq.l)  THEN 
rc  —  eye  (alumnc,  attn,  range,  visrg) 
fov  -  24.5 

ELSEIF  (kind.eq.2)  THEN 
rc  —  devic2  (attn,  range) 
fov  -  11.98 
END  IF 

rc  —  rc*dim/range 
IF  (rc.ge.rinfd)  THEN 

X  —  rc/ajob 

y  -  2.7+0.7*x 
z  —  x**y 

pinf  -  z/(z+1.0) 
pinf  —  aminl(pinf,.99) 
tau  —  zone  /  (fov*aminl(S.,fov)) 
tbarr  •»  3.4*tau/pinf 
if  (pinf.gt.0.9)  toarr  —  tau*ajob*6.8/rc 
ENDDF 

if  (tbarr. gt. 999.0)  tbarr«999.0 
pinfin(n,j.i)  •«  pinf 
pdet(n,j,i)  =  1.0-exp(-1.0/tbarr) 

20  CONTINUE 
END 
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3.3  Eye:  Find  the  Probability  the  Eye  Detects  in  the  Next  Second.  Eye  can  be  used  to  find 
detection  probabilities  for  various  types  of  targets;  however,  we  generally  use  it  for  tank  targets.  The  cal¬ 
ling  routine,  nvi,  finds  the  actual  probabilities  after  eye  finds  the  resolvable  cycles.  Resolvable  cycles  are 
akin  to  scan  lines  used  to  paint  an  object  on  a  TV  screen. 


CODE 

MATH 

COMMENT 

alumnc 

/ 

Illumination  (ft-candles). 

attn 

a 

Attenuation  {?). 

range 

r 

Range  to  target  (km). 

visrg 

V 

Visibility  range  (km). 

sog 

•  - 

Sky  over  ground  ratio.  (1  <  «  <  3) 

cntrst 

c  = 

Target  to  background  contrast  ratio. 

i 

t 

Lower  column  for  interpolation.  l<i<4 

j 

J 

Upper  column  for  interpolation.  2<y<4 

k 

i 

Row  index. 

clog 

C  =  Inc 

Natural  logarithm  of  contrast  ratio. 

rlo 

Resolvable  cycles  for  lower  power  of  10. 

rhi 

Resolvable  cycles  for  higher  power  of  10. 

eye 

=  r+(^-’-i)(/-io7io)/(.9xio’) 

Resolvable  cycles  interpolated  for  intermediate  illumination. 

It’s  not  obvious  that  the  equations  for  r,  and  above  correspond  to  the  calculation  of  rlo  and  rhi. 
The  summation: 

7 

k-\ 

may  be  expanded  as; 

^1  ~  ,0 ,7 ^ 

and  re-written  for  efficiency  as: 

The  code  uses  the  DO  20  loop  to  evaluate  the  equation  above.  The  first  iteration  finds  the  value  of 
the  innermost  parenthesis,  and  each  following  iteration  finds  the  value  of  the  next  innermost  parenthesis, 
until  it  finds  the  entire  value  on  the  sixth  iteration.  Since  the  calculation  of  is  similar  to  the  calculation 
of  Tj,  the  code  finds  it  at  the  same  time.  The  relevant  portion  of  the  code  is: 

clog  =  alog(cntrst) 
rlo  =  a(i,7) 
rhi  =  a(j,7) 

DO  20  k=6,l.-l 

rlo  =  rlo*clog  +  a(i,k) 
rhi  =  rhi*clog  -t-  a(j,k) 

20  CONTINITE 

It  is  also,  not  obvious  that  the  equation  for  above  yields  an  interpolated  value  between  r,,  and  r^. 
To  understand  how  r,  is  interpolated,  we’ll  have  to  do  some  backtracking.  The  equation  used  is. 

'■e  =  r,+(r*-r,)(/-107l0)/(.9Xl0’) 

r-r,  =  (r*-r,)(/-107l0)/(.9xl0‘) 
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_  /-loVio 

.9X10’ 

r*-r(  lO’-lO’"' 

This  is  simply  the  relationship  for  similar  triangles  used  to  perform  linear  interpolation  in  figure  2 
below. 


c  V7.1 

FUNCTION  EYE  (alumnc,  attn,  range,  visrg) 

c  Eye:  find  resolvable  cycles  for  the  human  eye.  (Device  1) 
real  a(4,7) 
save  a,  aeon 

c  sunset  o'cast  heavy  o'cast  overcast  day  clear  day 
d&Cst  I / 

1  1.2378091942,  1.7176916034,  1.9909928015,  2.0892716525, 

2  0.4694720809,  .4739084812,  .4484981232,  .2813866389, 

3  .0493317078,  -.2102895514,  -.4084258747,-1,0084578626, 

4  -.0601756751,  -.4161055149,  -.6856409935,-1.4323484287, 

5  -.0558327470,  -.2696921300.  -.4318233767,  -.8450225947, 

6  -.0174190671,  -.0756229822,  -.1197712507,  -.2235482536. 

7  -.0018530403,  -.0077222394,  -.0121729428,  .0218136690/ 

data  aeon  /.4/ 

c 

c  Find  sky-to-ground  ratio 

sog  <■  (visrg-H.0)/3. 
sog  •  aminl(3.,amaxl(l.,sog)) 
eye  —  0.0 

entrst  —  acon/(1.0-fsog*(exp(attn*range)-1.0)) 

IF  (cntrst.ge.0,02)  THEN 

c  Target/Background  contrast  is  sufficient  to  detect 

i  —  min0(4,l+int(alogl0(alumnc))) 
ack  -  10.‘*i 
j  —  min0(4,i-H) 
clog  -  alog(cntrst) 
rlo  —  *^(*i7| 
rhi  —  a(j,7) 

DO  20  k-6,1,-1 
rlo  —  rlo  *  clog  +  a(i,k) 
rhi  —  rhi  *  clog  +  a(j,k) 

20  CONTINUE 

c  Interpolate  &  compute  cycles  across  target 

eye  —  rlo-b(rhi-rlo)*(alumnc-ack/10.)/7ack*,9) 

ENDIF 

ENT) 
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3.4  Detrg:  Find  Maximum  Range  to  Which  Each  Firer  Can  Detect.  Det  rg  is  called  for 
each  side  at  the  beginning  of  each  engagement  to  generate  detection  ranges  For  each  tank  on  the  side,  it 
finds  the  ranges  within  which  the  tank  is  able  to  detect  1)  stationary,  hull  defilade  targets,  2)  stationary, 
fully  exposed  targets,  and  3)  moving,  fully  exposed  targets. 

The  DO  80  loop  loops  through  all  the  tanks  on  the  side.  For  each  tank  it  draws  a  random  number 
from  a  uniform  distribution.  Then  for  each  of  the  three  types  of  targets,  it  interpolates  on  the  appropriate 
curve  to  find  the  range  within  which  the  firer  is  able  to  detect  that  type  of  target.  The  figure  below  illus¬ 
trates  the  procedure. 


Range  (m) 


The  DO  70  loop  chooses  the  curve  for  each  of  the  three  types  of  targets;  moving  fully-exposed,  sta¬ 
tionary  fully-exposed,  and  stationary  hull-defilade. 

The  DO  60  loop  finds  the  appropriate  interval  to  interpolate  in. 


CODE 

MATH 

COMMENT 

narmy 

n 

1  if  Blue,  2  if  Red 

first 

ID  of  first  tank  on  the  side 

last 

ID  of  last  tank  on  the  side 

P 

p  =  ranu 

Random  draw  from  a  uniform  distribution. 

conr* 

c 

1  if  stationary  HD,  2  if  stationary  FE,  3  if  moving  FE. 

krg 

k 

Index  such  that  <  P»,c,*+i 

pi 

Pi 

Lower  bound  of  interpolation  interval 

p2 

Pi  =  Pn.c.k 

Higher  bound  of  interpolation  interval. 

rl 

''i 

Range  at  lower  bound  (m). 

inerg 

r 

Ar 

Pi-P 

r  =  Ar 

Pl~P2 

Range  increment  in  table  (m). 

Range  chosen. 

c  V7.5 

SUBROUTINE  DET  RG  (narmy, first, last) 
c  Det  rg:  Find  the  max  ranges  at  which  each  firer  in  'narmy'  detectSO 
include  ’common. h' 

integer  narmy,  first,  lost,  tank,  cond,  krg  6.S 

real  pi,  p2,  r,  rl,  p  c 

1  format  T  Range  to  which  tank  can  see',/, 

1  ’  Tank  ffi>FB-SF&Mranu’) 

2  format  (iS, 318.1, rs. 4) 

c  70 

if  (trace)  print  *,’> detrg' 

if  (histry)  print  1  80 

c  Loop  thru  all  tanks  on  the  side 
DO  80  tank  «  first, .ast 
p  ■>  ranu(O.O) 

DO  70  cond- 1,3 

p]  -  1,0 

c  Search  for  P-inflnity  values  bounding  x 

DO  60  krg-1,8 
p2  —  pinfin(narmy, cond, krg) 


IF  (p2  .It.  p)  GOTO  65 

pi  -  p2 

CONTlN'UE 

p2  -  0.0 

CONTINUE 

Interpolate  on  p-infinity  to  find  range, 
rl  —  irginc*  (krg-1) 
r  -  rl  +  irginc*(pl-p)/(pl-p2) 
rgvisicond.tank)  —  r 
CONTINUE 

if  (histry)  print  2,tank,(rgvis(cond,tank).cond— l,3).p 
CONTINUE 

if  (trace)  print  •,'<detrg' 

END 
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3.6  SearcO:  Schedule  Initial  Search  Event.  The  model  executes  the  searcO  routine  once  at  the 
beginning  of  each  engagement.  SearcO  initializes  a  table  containing  the  ranges  between  Red  and  Blue 
tanks,  selects  the  appropriate  detection  ranges  for  each  tank,  and  then  finds  the  first  possible  time  that 
detection  can  occur.  It  schedules  search  to  begin  at  that  time.  This  eliminates  the  repeated  simulation  of 
search  before  detections  are  possible. 

SearcO  initializes  the  table  containing  ranges  between  combatants  as  follows: 

rgtbl(i,j)  =  r^j  =  V(  ) 

Where, 

X-,  y-  are  the  coordinates  of  the  ith  system. 

Combatants  are  not  ignored  until  they  are  killed  to  some  level.  So  initially,  ignore{i)  is  set  to  .false. 

The  range  to  which  each  tank  can  see  is  copied  from  the  rgvis  table  into  the  rgvs  vector.  The 
appropriate  column  copied  depends  on  whether  the  target  is  stationary  or  moving,  or  whether  the  searcher 
is  moving  or  stationary. 

SearcO  finds  the  longest  detection  range  of  all  the  tanks  and  uses  this  plus  the  speed  of  any  attacker 
to  determine  when  the  first  target  can  be  detected  by  an  observer.  If  the  sides  are  within  detection  range 
at  the  start  of  the  game,  search  begins  immediately  (at  t  =  0).  If  they  are  beyond  detection  range  and  nei¬ 
ther  side  is  moving  they  will  never  detect  each  other,  so  searcO  schedules  a  finish  event  immediately.  If 
they  are  beyond  detection  range  and  one  side  is  moving,  searcO  finds  when  the  sides  are  within  detection 
range  and  schedules  a  search  event  at  that  time. 


CODE 

MATH 

COMMENT 

i 

1 

ID  of  Blue  tank. 

n 

n 

ID  of  Red  tank. 

x0(i),  y0{i) 

Zs  s 

Coordinates  of  Blue  tank  (m). 

x0(j).  y0(j) 

X  ■,  6  ■ 

y  ) 

Coordinates  of  Red  tank  (m). 

X,  y 

X,  y 

Coordinate  of  Blue  tank  W.R.T.  to  Red  tank  (m). 

r 

r  = 

Distance  between  tanks  (m). 

rgtbl(i,n) 

Cell  in  table  storing  distance  from  tank  i  to  tank  n  (m). 

kred(scene) 

Initial  exposure  of  Red  tanks  in  scenario  ‘scene’. 

ni 

Initial  exposure  of  Blue  tanks. 

ignore(i) 

True  IFF  tank  i  is  no  longer  a  threat. 

rgvs(i) 

Range  to  which  tank  i  can  detect  (m). 

dmax 

d 

Farthest  distance  any  tank  can  detect  a  target  (m) 

nj 

Initial  exposure  of  Red  tanks. 

rgO 

'■o 

Opening  range  (m). 

dist 

O 

W. 

1 

II 

Farthest  distance  a  tank  can  detect  beyond  opening  range  (m). 

To  <  d 

Implies  at  least  1  tgt  in  detection  range  at  time  zero. 

time 

First  possible  detect  time  (sec). 

scene 

=  1  for  Meeting,  2  for  Red  attack,  3  for  Blue  attack 
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n  Co 


c  VI. 1 

SUBROUTINE  SEARCO 
c  SearcO:  schedule  initial  search  event, 
c  ni,  nj  •  1  if  HD.  2  if  FE  &  stationary,  3  if  FE  &  moving, 

c  dist  -  distance  to  travel  before  entering  detection  range, 

c  dmax  —  maximum  distance  any  combatant  can  detect, 
c  time  -  time  to  travel  before  entering  detection  range, 
integer  kred(3),  ltblu(3) 
logical  igDore(NN) 
include  'common. n’ 

common  /cserch/  rgtbl(NN,NN),  ignore(NN),  rgvs(NN),  time,  ni,  nj 
save  /cserch/ 

data  kred  /2,3,1/,  kblu  /2.1,3/ 

if  (trace)  print  *,'>searcO’ 
c  Set  up  tables. 

DO30i-l.nblu 
DO  20  j—l,nred 
n  —  j+nblu 
X  -  xO(i)-xO(n) 
y  -  yO(i)-yO(n) 
r  -  sqrt(x**2+y**2) 
rgtblfi.n)  —  r 
rgtbl(n,ij  -  r 
20  CONTINUE 

continut; 

Find  maximum  distance  combatants  can  detect 
ni  •>  kred(scene) 
dmax  —  -l.elO 
DO  50  i-l,nblu 
ignore(i)  —  .false 
rgvs{i)  -  rgvis(ni,i| 
dmax  —  amaxl(dmax.rgvs(i)) 

50  CONTINUE 

nj  -  kblu(scene) 

DO  60  i  —  l.nred 
ignore(i+nblu)  -  false. 
rgvs(i+nblu)  ->  rgvis(nj.i+nblu) 
dmax  —  amaxl(dmax,rgvs(i  +  nblu)) 

60  CONTINUE 

c  Find  when  search  should  begin, 
dist  -  rgO  -  dmax 
IF  (rg0.lt. dmax)  THE.N 
c  In  detection  range  at  time  0.0 

time  -  0.0 

ELSEIF  (scene. eq.MEETNG)  THEN 
c  Outside  &  never  enters  detection  range, 

time  —  l.OelO 

call  skedul(0.0, NULL. 'finish', NULL) 

ELSEIF  (scene. eq.RATTAK)  THEN 
c  Outside  and  red  enters 

time  —  dist/speed(RED) 

ELSE 

c  Outside  and  blue  enters. 

time  —  dist/speed(BLU) 

END  IF 

if  (time.lt.tmax)  call  skedul(time. ALL, 'search  .ALL) 
if  (trace)  print  *,  <searc0' 

END 
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3.8  Search:  Find  Targets  Detected  in  Next  Second.  Search  makes  sure  the  positions  of  the 
tanks  are  up-to-date.  Then  it  checks  all  searchers  to  see  which  targets  are  within  detection  range.  When  a 
target  is  within  range,  it  calls  searc2  to  find  whether  detection  will  occur. 

To  update  the  tank  positions,  search  first  updates  the  ignore  array.  All  K-killed  tanks  and  perhaps 
some  MF  killed  tanks  are  ignored.  This  depends  on  user  input.  Then  it  updates  the  positions  of  any  mov¬ 
ing  tanks  except  those  that  are  to  be  ignored.  (This  seems  redundant.  But  maybe  some  K-killed  tanks 
haven’t  halted  quite  yet.)  Finally,  the  distance  between  each  Blue  and  Red  tank  is  stored  in  the  rgtbl 
array. 

The  next  step  is  to  loop  through  all  the  Blue  and  Red  searchers  to  see  which  foe  are  within  detection 
range.  This  is  done  in  the  DO  40  loop.  The  DO  40  loop  loops  through  the  Blue  tanks.  If  the  ith  Blue  tank 
is  not  to  be  ignored,  we  find  the  range  (rgi)  to  which  it  can  detect.  We  then  check  the  Blue  tank  against 
each  Red  tank.  This  is  done  in  the  DO  30  loop.  If  the  jth  Red  tank  is  not  to  be  ignored,  we  find  the  range 
(rgj)  to  which  it  can  detect.  If  the  range  between  the  two  tanks  is  less  than  either  of  the  detection  ranges 
then  we  consider  the  pair  further.  The  next  step  is  to  find  if  they  are  in  line-of-sight  of  each  other.  If  so, 
we  treat  Blue  as  the  searcher  and  then  Red  as  the  searcher. 

If  the  Red  tank  is  in  detection  range  of  the  Blue  searcher  and  the  Blue  searcher  has  not  already 
detected  the  Red  tank  and  the  Blue  searcher  can  handle  another  detection,  detection  is  possible.  If  detec¬ 
tion  is  possible,  searc2  is  called  to  find  whether  it  occurs  and  if  so,  when.  If  detection  does  not  occur  on 
the  Red  tank  in  the  next  second,  the  repeat  flag  is  set  so  that  search  will  be  rescheduled  in  the  next 
second.  Identical  logic  determines  whether  the  Red  tank  detects  the  Blue  one. 


CODE 

MATH 

COMMENT 

t 

i 

Current  time  (sec). 

repeat 

True  IFF  search  should  reschedule  itself. 

time 

First  time  any  target  can  be  detected  (sec). 

i 

i 

ID  of  tank. 

ignore(i) 

True  IFF  tank  i  is  no  longer  a  threat,  (logical) 

life(k) 

Status  of  ith  tank  (>=  IKILL  implies  it’s  known  dead.) 

x0(i),  y0(i) 

Coordinates  of  ith  tank  (m). 

rgtbl(i,j) 

Distance  between  ith  Sc  jth  tanks  (m). 

ndeti 

Maximum  detections  for  a  Blue  tank. 

ndetj 

Maximum  detections  for  a  Red  tank. 

rgi 

Distance  Blue  can  detect  Red  target  (m). 

rgj 

Distance  Red  can  detect  Blue  target  (m). 

ok 

Implies  tgt  is  in  detection  range  and  not  yet  seen,  and 
searcher  is  not  loaded  with  detects. 
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c  V7.8 

SUBROUTINE  SEARCH  (l) 

c  3  Search:  see  if  any  targets  are  detected  in  the  next  second, 
include  'common. h' 
logical  ignore,  ok 

common  /cserch/  rgtbl(NN.NN),  ignore(NN),  rgvs{NN),  time,  ni,  nj 
save  /cserch/ 
rss(x,y)  —  sqrt(x*x+y*y) 
c 

if  (trace)  print  *,’>search’ 
repeat  «■  .false. 

IF  (t.lt.time)  RETURN 
c  Update  status  of  tanks. 

DO  5  i— l,nblu+nred 

c  (Next  line  shud  eventually  be  updated  in  damage. f,  Itkill.) 

ignore(i)  •>  ignore(i).or.life(i).ge.IKILL 
if  (.not.ignore(i)  .and.  motion(i).ne.STATNY) 

1  call  path(i,t,motion(i),0.0,dml,dm2,dm3,dm4) 

5  CONTINUE 

DO  20  i—I.nblu 
IF  (.not.ignore(i))  THEN 
DO  10  j-nblu+l,nblu+nred 
'•gtbl(i,j)  -  rss(x0(i)-x0(j),y0(i}-y0(j)) 
rgtblU.ij-  rgtDl(i,j) 

10  continIt; 

ENDIF 

20  continue 

ndeti  —  ndets(BLU) 
ndetj  —  ndets(RED) 

DO  40  i“l,nblu 
c  Loop  thru  Blue  tanks. 

IF  (.not.ignore(i))  THEN 

c  Consider  tank  i  (it  is  alive  and  can  detect  or  be  detected.) 
rgi  -  rgvs(i) 

DO  30  j=nblu+l,nblu+nred 
IF  (.not.ignore(j))  THEN 

c  Consider  tank  j  (Also  alive  and  can  detect  or  be  detected.) 

rgj  -  rgvs(j) 
rgmax  -  amaxl(rgi,rgj) 
rg  »  rgtbl(i,j) 

IF  (rg.lt. rgmax)  THEN 

c  At  least  one  is  in  detection  rg  of  the  other. 

IF  (losO.j))  THEN 

c  Treat  Blue  tank  as  searcher 

ok“rg.lt.rgi.and..not.see(i,j).and.ndel(i).  It.  ndeti 
if  (ok)  call  searc2(l,i,j,BlAl,ni,dl) 
if  (.not.ok)  repeat  —  .true, 
c  Treat  Red  as  searcher 

ok—rg.lt.rgj.and..not.se^j.i).and.ndel(j).lt.ndetj 
if  (ok)  call  searc2(t,j,i,RED,nj,dt) 
if  (.not.ok)  repeat  —  .true. 

ELSE 

repeat  —  .true. 

ENDIF 

ENDIF 

ENDIF 

30  CONTINUE 

ENDIF 

40  CONTINUE 

if  (repeat)  call  skedul(t+1.0,0,’search’,  NULL) 
if  (trace)  print  *,'<search' 

END 
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3.7  Searc2:  Find  if  One  Searcher  Detects  One  Target  in  the  Next  Second.  Searc2  finds 
whether  a  specific  observer  detects  a  specific  target  in  the  next  second,  and  if  so  when  during  that  second. 
If  the  observer  doesn’t  detect  the  target  in  the  next  second,  searc2  sets  the  repeat  flag  so  that  search  will 
re-occur  in  one  second. 

The  probability  of  detecting  in  the  next  second  is  a  function  of  range,  target  motion,  and  target 
exposure.  This  data  is  stored  in  the  array  pdet(2,3,8),  where  pdet(l,i,j)  is  the  detection  probability  for 
Blue  searchers  against  targets  in  condition  i,  at  range  j.  A  sample  of  pdet(l,i,j)  might  look  as  follows: 


index 

1 

2 

3 

4 

5 

6 

7 

8 

1 

Rg  (m) 

Stationary,  Hull  defilade 

100 

200 

300 

400 

500 

600 

700 

800 

2 

3 

Stationary,  Fully  exposed 
Moving,  Fully  exposed 

.775 

.514 

.372 

.286 

.230 

.190 

.160 

.138 

The  first  half  of  searc2  simply  interpolates  in  the  appropriate  row  of  this  matrix  to  find  the  detec¬ 
tion  probability.  Searc2  then  draws  a  random  number;  if  it’s  less  than  the  probability  of  detection 
searc2  schedules  a  detection  randomly  in  the  next  second. 


Figure  3.  Probability  of  Detection  in  the  Next  Second 


CODE 

MATH 

COMMENT 

t 

Simulation  time  (sec) 

firer 

ID  of  firer  (integer) 

tgt 

ID  of  target  (integer) 

narmy 

1  if  firer  is  Blue,  2  if  Red. 

cond 

c 

1  if  tgt  is  stationary  HD,  2  if  stationary  FE,  3  if  moving  FE.  (integer) 

dt 

Delay  for  rescheduling  search  (sec). 

rg 

r 

Range  from  searcher  to  target  (m). 

rgincr 

AR 

Range  increment  in  table  (m). 

temp 

z  =  r/AR 

indx 

i  =  int(z) 

Index  of  lower  bound  of  range  interval. 

tio 

It 

Probability  of  detecting  at  lower  bound  of  range  interval. 

thi 

Probability  of  detecting  at  upper  bound  of  range  interval. 

frac 

f  =  z—int{z) 

Fraction  of  distance  into  range  interval. 

pdetct 

P  —  ^i+f(^k~h) 

Probability  of  detection  in  current  1  second  interval. 

repeat 

Flag  to  reschedule  search.  Set  to  .true,  if  detection  does  not  occur,  (logical) 
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Code. 


c  V7.4 

SUBROUTINE  SEARC2  (t,firer.tgt.narmy.cond,dt) 

c  ?  Searc2:  see  if  a  tank  detects  a  target  during  this  second, 
include  ’common. h’ 
integer  firer,  tgt,  cond 

c  Find  where  to  interpolate, 
temp  —  rg/rgincr 
indx  —  int(temp) 

IF  (indx  .It.  1)  THEN 
tlo  -  1.0 

thi  ■>  pdet(narmy,cond,l) 

ELSEIF  (indx  .It.  8)  THEN 
tlo  pdetlnarmy, cond, indx) 

thi  —  pdetlnarmy, cond, indx+1) 

ELSE 

tlo  —  pdet(narmy,cond,8) 
thi  -  0.0 
ENDIF 

c  Interpolate  in  interval. 

frac  =  temp-aint(temp) 
pdetct  —  tlo  +  rrac*(thi-tlo) 

IF  (ranu(O.O).gt. pdetct)  THEN 

c  Set  flag  to  repeat  search.  (At  least  one  searcher  didn't  detect  tgt.) 
repeat  •«  .true, 
dt  -  1.0 
ELSE 

c  Schedule  search  randomly  in  next  second.  (Searcher  may  detect.) 
call  skedul(t+ranu(0.0),flrer, ’detect',  tgt) 

ENDIF 

if  (trace)  print  •,’<searc2’ 

END 
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3.8  Detect:  Find  if  Target  Is  Detected  and  Schedule  Subsequent  Events.  Detect  simulates 
detection  if  a)  line-of-sight  still  exists,  b)  the  observer  hasn’t  aetected  the  target,  and  c)  the  observer  is  not 
loaded  with  detections.  (The  user  specifies  how  many  targets  each  tank  can  detect  simultan*  o  jsly.)  If  all 
these  conditions  hold,  detect  increments  the  number  of  targets  the  observer  knows  about,  marks  that  this 
observer  has  detected  this  target,  and  schedules  the  observer  to  select  a  target.  (The  select  event  controls 
whether  a  selection  actually  happens.) 


CODE 

t 

I 

it 

m 

n 

los(I,it) 

see(I,it) 

ndet(I) 

ndets(m) 

thuman 


_ COMMENT _ 

Simulation  time  (sec) 

ID  of  observer. 

ID  of  target. 

1  if  observer  is  Blue,  2  if  Red. 

1  if  target  is  Blue,  2  if  Red. 

True  iff  line  of  sight  exists  between  observer  &  target  (logical). 

True  iff  observer  already  sees  target  (logical). 

Number  of  targets  observer  is  aware  of. 

Maximum  number  of  targets  observer  on  side  m  can  remain  aware  of. 
Randomly  chosen  time  required  for  human  to  select  a  target  (sec). 


Detect  contains  two  assumptions.  The  first  is  that  the  observer  has  a  fixed  limit  (ndets(m))  on  the 
number  of  targets  it  can  maintain  cognizance  of.  The  second  is  that  the  observer  requires  a  lognormally 
distributed  time  to  select  a  t.Tget.  The  author  has  chosen  to  make  the  median  time  of  this  distribution  to 
be  2  seconds  and  the  standard  deviation  of  the  underlying  normal  distribution  to  one-half. 


c  V7.3 

SUBROUTINE  DETECT  (l.  I,  it) 
c  3  Detect:  find  if  tgt  detected  and  schedule  subsequent  events, 
include  ’common. h’ 

1  format  (f8,2,Ix,a4,i3,'  detects  ',lx,a4,i3) 
c 

if  (trace)  print  •,’>detect' 
m  -  army(I) 
n  —  3-m 

IF  (los(I,it)  .and,  .not.see(I,it)  .and. 

1  ndet(i).lt.ndets(m))  THEN 

irfhistry)print  l,t,color(m),I,color(n),it 

naet(I)  —  ndet(I)+l 

see(I,it)  -  true. 

t  human  “  2.0*exp(rann(0.5)) 

call  selecs(t, I, thuman) 

ENDIF 

if  (trace)  print  *,’<detect’ 

END 
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3.9  Pinpnt:  Simulate  Firing  Signature  Detection.  Pinpnt  simulates  detection  of  a  tank  due  to 
its  firing  signature.  The  program  executes  this  routine  every  time  a  tank  fires.  For  each  foe,  the  routine 
draws  a  random  number  and  schedules  detection  if  a)  the  random  draw  was  less  than  the  pinpoint  detec¬ 
tion  probability,  b)  the  foe  can  still  shoot,  c)  line-of-sight  exists,  and  d)  the  foe  hasn’t  already  detected  the 
firer. 


CODE 

MATH 

COMMENT 

t 

Simulation  time  (sec). 

I 

ID  of  firer. 

first 

ID  of  first  foe. 

last 

ID  of  last  foe. 

k 

ID  of  foe. 

pinpxx 

Probability  of  pinpoint  detection. 

wilsee 

True  IFF  foe  detects  muzzle  flash  or  smoke  (logical). 

life(k) 

Status  of  foe  k.  Foe  doesn’t  detect  if  it  is  firepower  killed. 

ndet(k) 

Number  of  targets  foe  k  is  cognizant  of. 

ndets() 

Maximum  number  of  targets  foe  k  can  maintain  cognizance  of. 

los(k,I) 

True  IFF  line  of  sight  exists  between  k  and  1  (logical). 

see(k,I) 

N(O.S) 

True  IFF  k  already  sees  I  (logical). 

thuman 

II 

Time  required  for  k  to  select  a  target  (sec). 

A^(0.5) 

Random  draw  from  a  normal  distribution  with  mean  zero  and 
standard  deviation  of  one-half. 

c  V7.4 

SUBROUTINE  PINPNT  (1,1) 

c  8  Pinpnt;  Simulate  firing  signature  (pinpoint)  detection  by  some  foes, 
include  'common. h’ 
integer  first 
logical  wilsee 

1  format  (fS. 2, lx, a4, 13,' sees  ',a4,i3,’ muzzle  Hash’) 

c 

ii  (trace)  print  •,'>pinpnt’ 
first  —  1 

if  (I.le.nblu)  first  —  nblu+1 
last  —  nblu 

if  (I.le.nblu)  last  —  nblu+nred 
pinpxx  —  pinp(army(first)) 

DO  20  k—first,  last 
wilsee  —  pinpxx. gt.ranu(O.O) 

IF  (life(k).lt.FKILL  .and.  wilsee  .and. 

2  ndet(k).lt.ndets(army(k))  .and. 

1  los(k,I)  .and.  .not.see(K,I])  THEN 

if  (nistry)  print  1, 

1  t,  color(army(k)),  k,  color(army(I)),  I 
see(k,I)  .true. 
ndet(k)  —  ndet(k)  +  1 
thuman  ->  2.0*exp(rann(0.5)) 
call  selecs(l,k, thuman) 

ENDIF 

20  continue; 

if  (trace)  print  *,'<  pinpnt’ 

END 


4i 


INTENTIONALLY  LEFT  BLANK 
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4.  TARGET  SELECTION  ROUTINES 


The  target  selection  routines  decide  which  of  any  targets  in  an  area  has  the  highest  priority.  The 
subroutine  priort  assigns  each  target  a  priority  number.  The  integer  function  prlorn  then  decides  which 
target  has  the  highest  priority,  and  breaks  any  ties  that  may  occur.  The  subroutine  select  uses  priorn  to 
decide  which  target  will  be  selected.  The  subroutine  selees  determines  when  the  program  will  begin  selec¬ 
tion,  and  the  subroutine  engage  sets  up  the  gunner  to  aim  and  fire  at  the  target  that  has  been  chosen. 

The  diagram  below  shows  the  relationship  between  the  routines  discussed  in  this  section.  The  many 
routines  calling  selees,  the  selection  start  event,  will  be  discussed  in  other  sections. 
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4.1  Select:  Gunner  Chooses  Most  Dangerous  Target  It  Sees.  In  the  subroutine  select  the 
gunner  chooses  the  most  dangerous  target  it  sees.  If  the  firer  cannot  select  a  target  because  it  cannot  see 
any,  the  subroutine  moves  the  gunner.  When  it  is  possible  for  the  firer  to  shoot,  the  subroutine  begins  to 
select  a  target.  After  a  target  is  chosen,  select  finds  whether  the  target  has  previously  been  fired  on  by  the 
gunner.  If  the  target  is  new,  it  may  be  made  into  a  false  target.  When  the  target  has  been  classified  as  old 
or  new,  the  target  is  engaged. 

The  subroutine  select  first  calculates  if  the  level  of  damage  to  the  firer  is  less  than  FKILL.>If  the 
code  determines  that  the  gunner  still  has  firepower,  then  it  calls  priorn  to  choose  a  target.  If  priorn  cannot 
select  a  target  because  there  are  none  in  view,  the  code  moves  the  gunner  to  another  position. 

If  the  target  that  is  selected  is  a  new  target,  the  code  may  make  it  into  a  false  target.  This  is  done  to 
better  simulate  the  actual  conditions  of  combat,  because  gunners  will  often  mistake  land  formations  as  tar¬ 
gets.  The  code  restarts  the  search  for  targets  if  the  search  has  been  turned  off. 

If  the  target  that  is  selected  has  been  fired  on  previously,  the  code  will  print  the  target’s  history. 
Finally,  select  calls  engage. 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  firer. 

m 

Side  of  firer.  1  if  Blue,  2  if  Red 

kind 

Kind  of  round.  1  if  KE,  2  if  HEAT,  4  if  missile,  5  if  top  attack. 

falive 

True  if  firer  is  not  firepower  killed  (logical). 

level 

Priority  level  (1..22). 

it 

ID  of  target  with  highest  priority. 

busy(I) 

If  firer  is  busy,  new  tgt  selection  is  inhibited  (logical). 

colort 

Color  of  target  is  ’Blue’  or  ’Red  ’  (character*4). 

k 

Concealment.  1  if  FD,  2  if  HD,  3  if  FE. 

pf 

Draw  from  uniform  random  distribution. 

tgtfls 

True  IFF  this  is  a  false  target  (logical). 

see(I,it) 

True  IFF  firer  sees  target  (logical). 

flstgt 

ID  of  false  target  is  always  -1  (integer). 

repeat 

True  IFF  search  is  to  be  rescheduled  in  1  second  (logical). 

fot(I,it) 

True  IFF  firer  is  on  (servicing)  target  (logical). 

nrtgt(I) 

ID  of  firer  I’s  target. 

c  V7.5 

SUBROUTINE  SELECT  (t,  I) 
c  6  Select:  gunner  chooses  most  dangerous  target  it  sees, 
include  ’common. h’ 
character*^  colort 
logical  tgt  fls,  r  alive,  can  go 
integer  I,  it,  priorn,  m 

1  format(re.2,lx,a4,i3,’  selects  ’,a4,i3,’  with  priority’,i4. 

1  '  #tgts-',i2) 

2  format(r8.2,lx,a4,i3,’  selects  ’,a4,’  -1', 

1  ’  &  discards  ’,a4,i3,  '  #tgts— ',i2) 

3  format(f8.2,lx,a4,i3,’  selects’ ,8x,'-  (empty  target  set)') 

4  format(’  SELECT:  ’,a4,i3,’  selects  ',a4,i3,’  with  priority’.i4) 
c 

if  (trace)  print  •,’>select’ 
m  —  army(I) 
kind  —  kindrd(m) 
f  alive  lif^ljjt.FKILL 
IF  (f  alive)  THEN 

c  Firer  can  shoot,  so  have  him  select, 
it  ■■  priorn(t,I,leven 
IF  (it.eq.NULL)  THEN 

c  Firer  has  no  targets  to  select  so  he  moves  if  possible 
if  (histry)  print  3,  t,color(m),  I 
busy(I)  —  .false, 

if  (kind.eq.4)  nchan(I)  —  nchan(I)-l 


IF  (can  go(I,t)  .and.  (kind.le.2  .or. 

1  kind.eq.5  .or,  nchan(I).eq.O))  THEN 
call  cancel(l,’halt  ’,  NULL) 
call  cancel(I,’accel  ’,  NULL) 
call  skedul(t,l,’accel  ’,NULL) 

ENDIF 

ELSE 

c  Tgt  has  been  selected 

colort  —  color(aniiy(it)J 
IF  (tfire(I,it).le.O.)TmN 

c  Tgt  is  new;  replace  with  false  tgt  randomly, 

k  —  knceallit)-! 
pf  —  ranu(O) 

tgt  fls  —  pf  .It.  pfalse(m,k) 

IF  (tgt  fls)  THEN 
see(I,it)  •  .false, 
if  (nistry)  print  2,  t,  color(m), 

1  I,  colort,  colort,  it,  nchan(I) 

it  —  fls  tgt 

c  Restart  search  if  it  is  turned  off 

IF  (.not. repeat)  THEN 
repeat  —  .true. 

call  skedul(t,0, ’search’, NULL) 

ENDIF 

ELSE 

fot(I,it)  —  .true. 
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if  (histry)  print  1,  I,  color(m), 

1  I,colort,it,level,nchan(I) 

ENDEF 

ELSE 

c  Firer  has  previously  serviced  this  target, 

fotfl.it)  —  .true, 
if  (histry)  print  1,  t,  color(m), 

1  l.colort, it, level, nchan(I) 

END  IF 

call  engage  (t,  t,  I,  it) 

ENDIF 
nrtgtfl)  -  it 
ENDIF 

if  (trace)  print  *,’<select’ 
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4.2  Selecs:  Start  Target  Selection  if  Appropriate.  The  subroutine  selecs  determines  whether 
the  program  will  start  the  selection  of  a  target  immediately  or  wait.  The  program  will  pause  if  the  gunner 
is  already  selecting,  if  the  channels  are  full,  or  if  the  pod  is  empty. 

The  subroutine  selecs  is  the  subroutine  which  calculates  whether  or  not  the  target  selection  routines 
will  be  called.  When  selecs  is  called  by  other  routines  in  the  Tank  Wars  II  program,  it  first  checks  to  see  if 
the  hrer  is  busy,  the  firer  has  no  missiles,  or  the  channels  are  full.  If  any  of  the  previous  situations  exist, 
then  selecs  prints  out  a  message  stating  that  the  selection  routines  will  not  start  and  gives  the  reason  for 
the  delay.  If  the  firer  is  free  and  ready  to  start  selection,  then  selecs  changes  the  status  of  the  firer  to  busy 
and  calls  the  subroutine  select  to  start  choosing  a  target. 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  firer  (integer). 

dt 

Time  required  to  select  a  target  (sec). 

m 

Side  of  firer.  1  if  Blue,  2  if  Red.  (Integer) 

kind 

Kind  of  round. 

busy() 

True  IFF  firer  is  too  busy  selecting  a  target  already  (logical). 

emptyO 

True  if  raised  missile  pod  is  empty  (logical). 

ALSO  True  if  entirely  out  of  ammo?? 

loaded 

True  IFF  all  missile  guidance  channels  are  loaded  (logical). 

nchan(firer) 

Number  of  busy  missile  guidance  channels. 

c  V7.2 

SUBROUTINE  SELECS  (t,I,dt) 
include  ’common. h‘ 
logical  loaded 

1  format  ff8.2,lx,a4,i3,'  does  not  select;  selecting  already.') 

2  format  ir8.2,lx,a4,i3,'  does  not  select;  channels  full.') 

3  format  If8.2,lx,ad,i3,'  does  not  select;  pod  empty.') 

4  format  (f8.2,lx,a4,i3,'  begins  selection.') 

if  (trace)  print  *,’>selecs' 
m  —  army(I) 
kind  —  kindrd(m) 

if  (kind.eq.4)  loaded  —  nchan(I).ge.nchans(m) 
if  (kind.ne.4)  loaded  —  nrtgt(l).ne.O 
IF  (busy(I)  .or.  emptyfl)  .or.  loaded)  THEN 
c  Wait  cause  busy  selecting,  pod  empty,  or  channels  full. 

IF  (histry)THEN 
IF  (busy(I))  THEN 
print  1,  t,  color(m),  I 
ELSEIF  (loaded)  THEN 
print  2.  t,  color(m),  I 
ELSEIF  (empty(l))  THEN 
print  3,  t,  color(m),  I 
END  IF 
ENDIF 
ELSE 

c  Start  selection:  none  in  progress  and  a  channel  is  free. 
busy(I)  —  .true. 

if  (kind.eq.4)  nchan(I)  ••  nchan(I)+l 
call  skedul(t+dl, I, 'select',  NULL) 
if^istry)  print  4,  I,  color(m),  I 

if^ace)  print  •,’<selecs’ 
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4.3  Priorn:  Select  Target  With  Highest  Priority.  Priorn  simulates  a  firer  selecting  its  next 
target.  After  removing  any  targets  already  being  engaged,  the  program  compares  the  remaining  targets  if 
1)  it  has  detected  the  target,  2)  the  target  is  not  dead,  3)  and  is  within  4  km.  If  any  two  targets  have  the 
same  priority,  the  program  selects  the  one  that  was  least  recently  engaged.  If  neither  has  been  engaged,  the 
program  selects  the  closest  target. 


Figure  4  illustrates  the  order  in  which  priorn  executes; 


Figure  4  Selection  of  Highest  Priority  Target 


The  subroutine  priorn  creates  a  dummy  target  that  is  given  an  extreme  range,  and  made  to  be  more 
recently  engaged  than  all  other  possible  targets.  The  code  assigns  the  dummy  target  a  priority  of  1000  and 
then  compares  all  other  tanks,  each  time  selecting  the  one  with  the  highest  priority  (lowest  priority 
number). 

The  DO  30  loop  compares  each  tank  in  turn  with  the  last  selected  target  and  selects  the  higher  prior¬ 
ity  of  the  two.  First  it  checks  to  see  if  either  a  friendly  tank  or  the  firer  is  guiding  or  firing  a  missile  to  the 
target.  If  the  target  is  being  serviced,  it  is  not  considered  in  the  comparisons.  This  option  should  only  be 
used  to  conserve  expensive  missiles,  and  this  only  happens  with  missile  systems  having  more  than  one  gui¬ 
dance  channel.  The  code  also  makes  sure  the  firer  does  not  select  targets  that  it  doesn't  see.  ones  it  knows 
are  dead,  and  ones  beyond  4  km.  When  a  target  that  is  in  view,  is  alive,  and  is  not  being  engaged  has  been 
chosen,  the  subroutine  calls  priort  to  assign  the  target  a  priority  number. 

After  the  priority  number  is  assigned,  the  code  ‘fuzzes’  the  range,  finds  how  recently  the  firer  has 
fired  on  the  target,  and  determines  whether  this  is  a  ‘better’  target.  (Better  means  higher  priority.) 

The  range  is  ‘fuzzed’  because  the  crew  cannot  estimate  range  perfectly  and  will  tend  to  pick  the  tar¬ 
get  they  think  is  closer.  This  avoids  several  firers  selecting  the  same  tank  simply  because  it  is  a  tiny  dis¬ 
tance  closer.  The  ‘fuzzing’  is  done  by  adding  a  random  amount  to  the  range.  This  random  amount  is 
chosen  from  a  normal  distribution  with  mean  zero  and  standard  deviation  equal  to  b%  of  the  true  range. 

If  the  current  target  and  best  previous  target  have  equal  priority,  the  code  breaks  ties.  If  the  targets 
are  new,  then  the  closest  one  will  be  given  higher  priority.  If  the  targets  have  previously  been  fired  on,  the 
code  chooses  the  one  that  has  been  least  recently  fired  upon.  This  spreads  the  fire  over  targets  instead  of 
concentrating  on  a  single  target. 

Finally,  if  the  current  target  has  a  lower  priority  number,  it  replaces  the  previous  best  choice. 
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CODE 

t 

I 

level  d 

armyf 

rgold 

told 

priorn 

pick 

share() 

fot(i,j) 
see(i,j) 
life(j) 
ck  tgt 
level 
rg  tgt 

t  tgt 
better 


_ COMMENT _ 

Time  (sec). 

ID  of  finer. 

Priority  level  of  highest  priority  target  (1..22). 

Side  of  finer.  1  if  Blue,  2  if  Red  (integer). 

Range  to  highest  priority  target  (m). 

Time  finer  last  serviced  highest  priority  target  (sec). 

Priority  of  current  candidate  (integer). 

True  IFF  the  tank  is  a  candidate  for  selection  (logical). 

True  IFF  tanks  on  a  side  know  which  targets  are  engaged  by  friends  (logical). 
True  if  missile  is  on  (assigned  to)  a  target  (logical). 

True  if  firer  i  is  on  (servicing)  target  j  (logical). 

True  IFF  firer  i  sees  target  j  (logical). 

Status  of  target  j.  IFF  less  than  IKILL,  it’s  considered  threatening. 

True  IFF  target  should  be  checked  -  it’s  a  candidate  (logical). 

Priority  level  of  current  candidate  (1..22). 

Approximate  range  to  target  (m). 

Time  firer  last  serviced  target  (sec). 

True  IFF  priority  of  current  candidate  is  highest  found  so  far  (logical). 


c  V7,3 

INTEGER  FUNCTION  PRIORN  (t,  I,  lev  old) 
c  6  Priorn:  Select  target  with  highest  priority, 
include  'common. h' 
logical  better,  ck  tgt,  pick 
integer  1,  armyf 

if  (trace)  print  *,’>  priorn’ 
armyf  -  army(l) 

c  'make'  dummy  tgt  for  comparison 

rg  old— l.eSS 
t  old— l.e35 
lev  old-1000 
priorn  —  NULL 
last  —  nblu+nred 
DO  30  mtgt— l,last 
c  Compare  all  possible  targets 

pick— .true. 

IF  (share(armyr))  THEN 

c  Don’t  select  this  tgt  if  anyone  is  already  servicing  it. 
DO  20  jfirer— l,last 

ir(mot(jfirer,mtgt).or.rot(jfirer,mtgt))pick-.  false. 
20  CONTINUE 

ELSE 

c  Don’t  select  this  target  if  I'm  already  servicing  it. 
if(mot(I,mtgt).or.fot(I,mtgt))pick— false. 

ENDIF 

rg  tgt  -  rgf  It, I, mtgt) 

ck  tgt  —  see(l,mtgt)  .and.  lire(mtgt). It. IKILL 
1  .and.  rgtgt.le.dOOO.O  .and.  pick 
IF  (ck  tgt)  THEN 

c  Firer  sees  tgt,  it’s  threatening,  &  he's  not  firing  at  it. 

call  priort(l,  mtgt,  rg  tgt,  t,  level) 
c  Now  pick  the  tgt  with  highest  priority 

rg  tgt  -  rg  tgt  *(l+.05*rann(1.0)) 
t  tgt  —  tfire(I,mtgt) 
better  —  level  .It.  lev  old 
IF  (lev  old. eq.level)  THEN 
c  Same  priority  class;  now  break  ties 

c  if  new  tgts  pick  closer 

if  (t  tgt.le.  0)  better  —  rg  tgt  .It,  rg  old 
c  if  old  tgts,  pick  older  (least  recently  fired  on) 

if  It  tgt.gt.  0)  better  —  t  tgt  It.  t  old 
ENDIF 

IF  (better)  THEN 
lev  old  —  level 
t  old  —  t  tgt 
rg  old  -  rg  tgt 
priorn  —  mtgt 


ENDIF 

ENDIF 

30  CONTINUE 

if^ace)  print  *,'<priorn’ 
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4.4  Priori:  Find  Priority  of  a  Single  Target.  Each  time  priori  is  called,  it  assigns  a  priority 
number  to  a  single  target.  A  target  is  given  a  priority  after  the  consideration  of  whether  or  not  the  target 
has  been  shot  at  previously,  if  it  has  been  hit,  how  close  it  is,  whether  or  not  it  has  fired  recently,  and  if  it 
is  moving,  slowing,  or  stationary. 

Table  2  shows  the  factors  taken  into  account  when  assigning  priority  to  a  target. 


Table  2.  Factors  in  Target  Selection 


Preferred 

Choice 

Less  Desirable 
Choice 

- 

Rationale 

How 

Modeled 

Close  tgt 

Far  tgt 

1  Easier  to  hit 

2  More  dangerous 

1  Tgts  within  1.5km 
given  higher  priority 

2  If  tgts  have  equal 
priority,  select  closest 

A  tgt  that 
fired  recently 

A  tgt  that 
hasn’t 

A  firing  tgt  is 
more  dangerous 

Tgts  that  fired 
in  the  last  30  sec 
given  higher  priority 

A  tgt  you 
missed 

A  tgt  you 
hit 

A  tgt  that 
was  hit  is  less 
likely  to  survive 

Missed  tgts  given 
higher  priority 

A  tgt  not 
being  approached 
by  a  missile 

A  tgt  being 
approached 
by  a  missile 

1  Conservation 
of  missiles 

2  Tgt  being 
approached  has 
less  chance  of 
shcx>ting  back. 

Tgts  being  approached 
by  a  missile 
will  not  be 
selected! 

An  old  tgt 

A  new  tgt 

A  new  tgt  may 
be  a  false  tgt 

Old  tgt  given  higher 
priority  *IF 

USER  DESIRES 

A  new  tgt 

An  old  tgt 

Old  tgt  is 
partially  serviced 
so  it  may  be 
dead 

New  tgt  given 
higher  priority 
*IF  USER  DESIRES 

A  tgt  that 
is  stopped 
or  slowing 

A  tgt  that 
is  accelerating 

1  Tgt  that  is 
stationary  is 
easier  to  hit 

2  Tgt  may  be 
stopping  to  shoot 

Stopped  or  slowing 
tgt  is  given 
higher  priority 

A  tgt  that  has 
a  tgt 

A  tgt  that  has 
no  tgt 

1  Tgt  that  has  tgt 
is  threatening 

2  Tgt  that  has  tgt 
is  know  to  be  active 

A  tgt  that  has 
a  tgt  is  given 
higher  priority 

*A  target  that  has  been  previously  fired  on  should  be  given  higher  priority  if  the  probability  of  an  F-kill  is 
low.  A  new  target  that  has  not  been  engaged  should  be  given  higher  priority  if  the  probability  of  it  being  a 
false  target  is  low. 

After  all  factors  are  taken  into  account,  a  list  of  selection  priorities  can  be  made.  The  list  combines 
the  preferences  found  in  Table  2  with  information  about  the  targets’  movements  (stationary,  slowing,  or 
active).  Table  3  lists  the  priority  for  each  set  of  target  conditions.  The  first  column  should  be  used  when 
the  probability  of  F,  M|F,  or  K  kill  for  the  target  is  low.  The  second  column  should  be  used  if  the  proba¬ 
bility  of  the  target  being  a  false  target  is  low. 
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Table  3.  Selection  Priorities 


1 

1 

Close 

old  tgt 

missed 

that  fired  in  last  30  sec 

2 

2 

Close 

old  tgt 

missed 

that  has  tgt 

3 

3 

Close 

old  tgt 

missed 

that  is  stopped  or  slowing 

4 

4 

Far 

old  tgt 

missed 

that  fired  in  last  30  sec 

5 

5 

Close 

old  tgt 

missed 

all  others 

6 

6 

Far 

old  tgt 

missed 

that  is  stationary 

7 

7 

Far 

old  tgt 

missed 

all  others 

8 

8 

Close 

new  tgt 

that  fired  in  last  30  sec 

9 

9 

Far 

new  tgt 

that  fired  in  last  30  sec 

10 

15 

Close 

old  tgt 

hit 

that  fired  in  last  30  sec 

11 

13 

Close 

old  tgt 

hit 

that  has  tgt 

12 

17 

Close 

old  tgt 

hit 

that  is  stopped  or  slowing 

13 

18 

Far 

old  tgt 

hit 

that  fired  in  last  30  sec 

14 

19 

Close 

old  tgt 

hit 

all  others 

15 

20 

Far 

old  tgt 

hit 

that  is  stationary 

16 

21 

Far 

old  tgt 

hit 

all  others 

17 

10 

Close 

new  tgt 

that  has  tgt 

18 

11 

Close 

new  tgt 

that  is  stopped  or  slowing 

19 

12 

Close 

new  tgt 

all  others 

20 

13 

Far 

new  tgt 

that  is  stationary 

21 

14 

Far 

new  tgt 

all  others 

The  code  calculates  whether  or  not  the  target  has  been  shot  at  previously  or  not.  If  it  has  been  shot 
at,  the  code  then  finds  out  if  it  was  hit.  If  the  target  was  not  hit,  then  the  subroutine  checks  to  see  if  the 
target  is  within  recognition  range.  If  the  target  is  within  1500  meters,  then  the  code  determines  if  the  tar¬ 
get  is  slowing  or  stationary.  If  it  is,  it  is  assigned  a  priority  of  3.  If  the  target  appears  to  be  preparing  to 
engage,  it  is  given  a  priority  of  2.  If  the  target  has  fired  within  the  last  30  seconds,  the  code  assigns  it  a 
priority  of  one.  Any  other  target  within  1500  m  that  has  been  shot  at  but  not  hit  is  assigned  a  priority  of 
5. 

If  the  target  has  been  shot  at  and  missed  but  is  beyond  recognition  range,  then  the  code  determines  if 
the  target  is  stopped.  The  code  does  not  determine  whether  or  not  the  target  is  slowing,  because  at  that 
range  it  would  not  be  possible  to  tell.  If  the  target  is  stationary,  it  is  given  a  priority  of  6.  It  is  also  impos¬ 
sible  to  tell  if  the  target  is  aiming  from  beyond  recognition  range,  so  the  code  does  not  determine  if  the 
target  is  preparing  to  engage.  However,  if  the  target  has  fired  a  shot  in  the  last  30  seconds,  the  code  gives 
it  a  priority  of  4.  Any  other  target  beyond  1500  m  that  has  been  fired  on  but  not  hit  is  assigned  a  priority 
of  7. 

If  the  target  was  hit  when  it  was  fired  on,  the  code  determines  if  the  target  is  within  recognition 
range.  If  the  target  is  within  1500m,  then  the  code  calculates  if  it  is  stationary  or  slowing.  If  it  is,  then  it  is 
given  a  priority  of  12.  If  the  target  appears  to  be  preparing  to  engage,  it  is  given  a  priority  of  11  If  the 
target  has  fired  in  the  last  30  seconds,  the  code  assigns  a  priority  of  10.  Any  other  target  within  1500  m 
that  has  been  hit  receives  a  priority  of  14. 

If  the  target  was  hit  but  is  beyond  recognition  range,  the  code  assigns  it  a  priority  of  16.  If  it  is  sta¬ 
tionary,  the  priority  is  set  at  15.  If  it  has  fired  in  the  last  30  seconds,  the  priority  is  raised  to  13. 

If  the  target  has  never  been  fired  upon,  the  code  first  calculates  if  the  target  is  within  recognition 
range.  If  it  is  within  1500m  and  is  either  stationary  or  slowing  down,  it  is  assigned  a  priority  of  18.  If  the 
target  appears  to  be  preparing  to  engage  a  new  target,  then  it  is  assigned  a  priority  of  17.  If  the  target  has 
fired  in  the  last  30  seconds,  the  priority  is  8.  Any  other  targets  that  are  new  and  close  are  given  a  priority 
of  19. 
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If  the  target  has  not  previously  been  engaged,  and  is  far  away,  the  code  assigns  it  a  priority  of  21.  If 
it  is  stationary,  then  the  target’s  priority  is  changed  to  20.  If  the  target  has  recently  fired,  the  priority  is 
set  at  9. 


c  V7.3 

SUBROUTINE  PRIORT(I,  it,  rgtgt,  t,  L) 
c  0  PRIORT: 

include  ’common. h’ 
logical  missed 

common  /MayPri/  missed(NN,NN) 
dimension  lev(21,2) 
save  /MayPri/,  lev 

data  lev/I, 2, 3, 4, 5, 6, 7, 8, 9, 10, II. 12. 13.U, IS,  16, 17,18,19, 20,21, 
•  1  2,3,4,5,6,7,8,9,15,16,17,18,19,20.21,10,11,12,13.14/ 

1  format!’  PRIOR’T;  ’.a4,i3,’  considrs  ',a4,i3,’  with  priority’, 

1  i4,’  (’.i2,’)’) 

c 

if  (trace)  print  •,’>priort’ 
j  —  nprior(army(I)) 
m  —  motion(it) 
tacliv  —  l.e35 

if  (tfire2(it).gt.0.)  tactiv  —  l-tfire2(it) 

IF  (tfire(l,it).gt.O)  THEN 

c  I  have  already  shot  at  this  target  previously. 

IF  (missed(l.it))  THEN 

c  Missed  target  with  last  round  fired  at  it 
IF  (rgtgt.lt. reckns(army(I)))  THEN 
c  "Target  is  within  recognition  range. 

L-S 

if  (m.eq.STATNY  .or.  m.eq.SLOWNG)  L  -  3 
if  (nrtgt(it).ne.O)  L  2 

if  (tactiv  .It.  30.)  L  1 

ELSE 

c  Target  is  beyond  recognition  range. 

L-7 

if  (m.eq.STATNY)  L  -  6 
if  (tactiv  .It.  30.)  L  —  4 
END  IF 
ELSE 

c  I  hit  target  with  last  round  fired  at  it. 

IF  (rgtgt. It. recknz(army(I)))  THEN 
c  Target  is  within  recognition  range. 

L  -  14 

if  (m.eq.STATNY  .or,  m.eq.SLOWNG)  L  -  12 
if  (nrtgl(it).ne.O)  L  -  11 
if  (tacliv  .It.  30.)  L  —  10 
ELSE 

c  Target  is  beyond  recognition  range. 

L  -  16 

if  (m.eq.STATNY)  L-  15 
if  (tactiv  .It.  30.)  L  ••  13 
ENDIF 
END  IF 
ELSE 

c  Target  is  a  new  target 

IF  (rgtgt. It. recknz(army(I)))  THEN 
c  Target  is  within  recognition  range. 

L-19 

if  (m.eq.STATNY  .or.  m  eq.SLOWNG)  L  -  18 
if  (nrtgt(it).ne,0)  L  -  17 
if  (tactiv  .It.  30.)  L  —  8 
ELSE 

c  Target  is  beyond  recognition  range. 

L-21 

if  (m.eq.STATNY)  L  «  20 
if  (tactiv  .It.  30.)  L  -■  9 
ENDIF 
ENDIF 
L  -  lev(L,j) 

if  (trace)  print  *,'<priort’ 

END 
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4.5  Engage:  Begin  Engagement  of  a  New  Target  by  This  Firer.  Engage  starts  the  engage¬ 
ment  of  the  newly  selected  target  by  the  firer.  It  sets  the  firer  in  a  position  to  fire,  determines  the  range  to 
the  target,  and  then  engages. 

Engage  begins  by  determining  if  the  firer  still  has  the  ability  to  fire  and  has  any  rounds  left.  If  the 
gunner  is  capable  of  engaging,  then  the  subroutine  calculates  its  velocity.  The  code  will  slow  down  any 
firer  still  in  motion.  When  the  firer  has  become  stationary,  engage  finds  the  range  to  the  target,  and  then 
prepares  to  fire. 


CODE 

MATH 

COMMENT 

tl,  t2 

Current  time  (sec). 

I 

ID  of  firer. 

it 

ID  of  target. 

m 

Side  of  firer.  1  if  Blue,  2  if  Red. 

n 

Side  of  target.  1  if  Blue,  2  if  Red. 

life(I) 

Status  of  firer.  Fully  alive,  mobility  killed,  etc. 

nrd(I) 

#  rounds  fired  by  firer. 

nrds(m) 

#  rounds  on  board  tanks  on  side  m. 

nbrst(I) 

#  Rounds  fired  in  burst. 

ishtfs(m) 

1  if  tanks  on  side  m  halt  to  fire.  Zero  otherwise. 

motion(l) 

1..4  if  tank  I  is  braking,  stationary,  accelerating,  cruising 

speed(m) 

Combat  cruise  speed  for  tanks  on  side  m. 

rg 

Range  to  target  (m).  Use  opening  range  if  false  target. 

nrg 

A'(0.S) 

Range  band. 

dt 

=  </ir,«e 

Time  to  fire  first  round  (sec). 

prevrd(I) 

=1  implies  this  is  the  first  round  fired  at  the  target. 

nrib(I) 

=0  implies  firer  I  is  just  beginning  a  burst  (if  it  fires  bursts). 

nrot(I) 

Count  of  rounds  on  target. 

c  V7.4 

SUBROUTINE  ENGAGE  (tl,  t2.  I,  it) 
c  ?  Engage; 

c  1  -  the  firer. 

c  it  -  the  target, 

c  tl,t2-? 

include  'common, h’ 


c 


c 


c 

c 


c 


if  (trace)  print  •,’>engage’ 
m  =  army(I) 
n  —  3-m 

IF  (lire(n.lt.FKILL.and.nrd(I).lt.nrds(m))  THEN 
nbrst(I)  ••  1 

IF  (isntfs(m).gt.O  .AND.  motion(I).ne.STATNY 
.and.  speea(m).gt.O.O)THEN 
halt  to  fire 

call  cancel  (I.’maxvel'.NULL) 
call  cancel  (I.’accel  '.NULL) 
call  skedul(tl,I,’slowup',NLl.L) 

ELSE 

Schedule  a  fire  event  otherwise 
find  range  to  target 
F  (it.eq.-l)THEN 
rg  -  rgO 

nrg  int(0.5+rg/irginc) 

ELSE 

dm  «  rgr(tl,it,I) 

ENDF 


nrg  —  min0(8,nrgj 

dt  —  tfirst(army(I),nrg)  *  exp(rann{0.5)) 
prev  rd(I)  —  1 
nrib(I)  —  0 
nrot(I)  —  0 

if{kindrd(m).eq.4)  dt— O.I 
call  skedul  (t2+dt,I,'fire  ',it) 

ENDF 


ENDF 

F  (trace)  print  *,’<  engage' 
END 
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5.  FIRING  ROUTINES 

The  event  subroutine  fire  simulates  firing  a  round  and  schedules  the  effects.  The  appropriate  events 
depend  on  the  ammunition  status,  number  of  shots  fired,  and  type  of  round;  gun  burst,  single  shot  gun,  or 
missile.  If  the  Srer  is  out  of  ammo,  it  will  either  attempt  to  hide  or  schedule  a  reload  if  it  is  a  missile  sys¬ 
tem. 


The  diagram  below  shows  the  major  routines  called  by  fire.  This  section  discusses  the  ones  in  solid 
boxes;  they  are  most  closely  related  to  firing.  The  pinpnt  routine  is  discussed  with  the  other  detection 
routines,  create  is  discussed  with  the  utility  routines,  and  selecs  is  discussed  with  the  target  selection  rou¬ 
tines.  The  arrow  leading  into  the  reload  box  indicates  frdmsl  calls  reload  indirectly  rather  than 
directly.  It  does  this  via  the  clock  routines. 
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5.1  Firing  Cycles.  Each  type  of  weapon  on  armor  has  its  own  timing  characteristics.  We’ll  discuss 
some  or  all  of  these; 


Cannon  w/nr.anual  loader  Cannon  firing  ‘bursts’ 

Cannon  w/load  assist  Guided  missiles 

Cannon  w/auto  loader  Beam  Weapons 

Human  reaction  times.  Delay  times  in  the  firing  cycle  include  human  reaction  times.  These  times 
are  approximately  log-normally  distributed.  That  is,  the  logarithms  of  the  reaction  times  are  normally 
distributed,  typically  with  /<  =  0,  and  <r  =  0.5. 

If  N[0.5]  is  a  random  draw  from  such  a  normal  distribution,  is  the  median  time  for  the  log¬ 
normal,  and  is  a  randomly  chosen  human  reaction  time,  then: 

iV|0.6| 

«*  = 

First  round  time.  The  model  assumes  that  the  first  round  is  loaded  when  the  tank  engages  a  tar¬ 
get.  The  time  to  launch  the  first  round  at  a  target  is  a  function  of  the  range  to  the  target.  W'hy?  Perhaps 
the  gunner  considers  a  distant  target  less  threatening  and  more  difficult  to  hit,  so  he  takes  more  time  to 
aim  carefully.  Table  4  contains  sample  values  against  a  stationary  target.  The  time  to  fire  the  first  round 
at  a  moving  target  is  proportionally  longer  and  should  be  added  to  the  model  in  the  future. 

Table  4.  Times  From  Target  Selection  to  Launch 


■MOM 

BHiim 

■ffW 

■mBm 

Time  to  subsequent  launch.  The  time  between  rounds  fired  at  the  same  target  depends  on  the 
type  of  armament  and  load  mechanism.  The  model  uses  eight  values  for  fixed  times  as  a  function  of  range. 
It  also  uses  the  median,  minimum,  and  intra-burst  times. 

Manual  loader.  For  manually  loaded  guns,  the  time  between  rounds  is  a  random  human  reaction 
time.  The  delay  time  is: 

NiO.5) 

At  =  /  e 

tn 

If  the  median  time  between  rounds  is  10  seconds  then  the  mean  time  between  rounds  will  be  approximately 
11.4  seconds. 

Load  assist.  Certain  tank  guns  have  a  load  assist  mechanism  which  performs  its  task  in  a  fixed 
time  in  series  with  a  human  who  performs  his  task  in  a  log-normally  distributed  time,  for  this  type  of 
system: 

NjO.5] 

At  =  l^+t„t 

Auto-loader.  Other  tank  guns  have  an  auto  loader  which  performs  its  task  if  a  fixed  time  in  paral¬ 
lel  with  a  human  who  performs  his  task  in  a  log-normally  distributed  time.  For  these  times  the  delay  is: 

N|0.5| 

At  =  max{<,,l„e  ) 

Burst  fire  cannon.  Tank  cannoii  which  fire,  say  3  rounds,  in  a  burst  have  been  postulated.  These 
have  a  fixed  time  between  rounds  in  a  burst  on  the  order  of,  say,  two  seconds  The  time  between  the  last 
round  in  a  burst  and  the  first  round  in  a  subsequent  burst  at  the  same  target  is  random,  based  on  human 
response  times.  The  time  between  rounds  in  a  burst  is; 
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The  time  between  bursts  is: 


The  code  for  burst  firing  must  be  re-introduced  into  Tank  Wars. 

Guided  missiles.  Missile  systems  may  guide  n  missiles  to  n  targets,  where  n  is  the  number  of  gui¬ 
dance  channels.  Many  missile  systems  have  only  a  single  guidance  channel.  In  any  case,  when  the  gui¬ 
dance  channels  are  full,  the  system  must  wait  until  a  missile  impacts  or  is  aborted  before  firing  another 
missile.  For  systems  with  a  single  channel,  the  time  between  rounds  is  the  time  of  flight,  which  in  turn  is  a 
function  of  the  range  to  the  target. 

t  =  tf{rg)  =  time  of  flight 

Some  conceptual  systems  have  multiple  guidance  channels  and  are  able  to  fire  on  n  targets  simul¬ 
taneously.  For  such  systems  the  time  between  launches  may  be  a  fraction  of  a  second  until  all  n  guidance 
channels  are  busy,  then  the  launch  of  the  n-(-lst  missile  must  wait  until  a  channel  is  free.  If  a  guidance 
channel  is  free,  the  time  between  launches  is: 

Otherwise,  the  time  between  launches  depends  on  when  a  channel  becomes  free  and  is  not  a  direct  input  to 
the  model. 

These  conceptual  systems  may  hold  fir**  until  n  targets  are  designated  and  then  launch  n  missiles  a 
fraction  of  a  second  apart.  Tank  Wars  doesn’t  yet  model  this  hold-fire  technique  but  it  should  be  added. 
It  will  require  careful  thought  about  what  happens  when  there  are  fewer  than  n  targets  or  fewer  than  n 
missiles  remaining. 

Beam  weapons.  If  such  weapons  fire  several  times  at  one  target,  the  time  between  shots  will 
depend  primarily  on  a  fixed  time  to  recharge.  If  is  the  recharge  time,  then  perhaps: 

yv|o.s| 


5.2  Fire:  Simulate  Firing  of  a  Round  and  Schedule  Effects.  Fire  simulates  the  firing  of  a 
round,  updates  and  saves  related  values,  and  schedules  effects  of  the  firing.  These  effects  include  impact  of 
the  round,  detection  of  the  firer  by  its  firing  signature,  and  the  next  activities  of  the  firer.  The  firer’s  next 
activities  depend  on  whether  it  fires  single  shots,  bursts,  or  guided  missiles.  The  firer  may  fire  again, 
switch  targets  or  move.  Missile  firers  may  also  replace  an  empty  missile  pod  (reload)  or  simply  wait  until 
impact. 


CODE 

MATH 

COMMENT 

t 

Time  (sec) 

I 

firer 

it 

Target 

busy(I) 

T/F.  Tentatively  set  to  false.  This  permits  the  tank  to  select 
a  new  target. 

m,n 

Side  of  firer,  target 

nrd(I) 

r,.  =  r,.+  l 

Number  of  rounds  fired  by  tank 

nrib 

Number  of  rounds  fired  in  burst 

nrpb 

Number  of  rounds  per  burst 

nrot(I) 

Number  of  rounds  fired  at  current  target 

it  >  0 

=true  if  a  real  target.  ID  of  false  tgt  is  -1 

tfire(I,it) 

t,  =  t 

Save  time  firer  fired  at  target.  When  switching 

targets,  firer  will  give  priority  to  least  recently  serviced  tgt. 

tfire2(I) 

<2=  < 

Save  time  firer  last  fired.  When  selecting  tgt, 
foes  will  give  priority  to  tgts  that  fired  recently. 

it  =  FLSTGT 

Implies  target  is  a  false  target.  Code  must  generate 
position  and  set  velocity  to  zero. 

rg 

Range  of  target  (m). 

nrg 

Number  of  range  band 

irginc 

Size  of  range  bins  (m). 

s(i) 

i=l,2,or3 

Position  of  tank  in  question. 

iflash(I) 

T  for  flashing  decoy,  F  for  passive  decoy. 

bullet 

ID  of  bullet. 

tfly 

Time  of  flight  (sec). 

tof 

Time  of  flight  table  (sec). 

psense 

Probability  of  sensing  the  impact  location  of  a  miss 

vxO,vyO 

V 

Current  velocity  of  firer  or  tgt  (m/s). 

kindrd 

1  for  KE,2  for  HEAT,4  for  missile,5  for  STAFF 

Initially  busy  is  set  to  false,  although  this  may  not  be  true  for  missile  systems.  We  may  have  to  reset 
it  to  true  depending  if  it  is  a  simple  or  multi-missile  system. 

By  counting  the  number  of  rounds  fired  in  a  burst(nrib)  and  the  number  of  rounds  per  burst(nrpb), 
we  can  determine  if  the  burst  is  just  starting,  in  the  midst,  or  over.  If  the  burst  is  just  starting  we  must 
draw  errors  for  the  burst,  but  if  the  burst  is  over  the  firer  can  switch  targets  or  pop-down.  The  firer  may 
want  to  change  targets  based  on  the  policy  of  firing  a  fixed  number  of  rounds  at  a  target,  therefore,  we 
need  to  count  the  number  of  rounds  fired  at  the  current  target(nrot). 

Tfire  and  tfire2  are  used  in  a  target’s  selection  process  based  on  previous  set  priorities.  The  last  time 
the  firer  fired  at  a  target  (tfire)  is  needed  if  the  firer  returns  to  service  the  least  recently  engaged  target. 
Tfire2  saves  the  last  time  the  firer  fired  at  any  target.  This  is  used  by  the  target’s  foes  and  priority  is 
given  to  recent  firers. 

Velocities,  positions  are  updated  and  u.sed  to  find  the  time  of  flight  of  round,  and  saved  for  use  at 
impact  time.  No  velocity  or  position,  however,  is  calculated  for  false  targets,  although  a  dummy  position 
is  picked  at  x=0,z=0,  and  y =-(-/-  opening  range.  A  false  target  is  a  natural  object  such  as  a  bush  or  stone 
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mistaken  for  a  real  target.  A  real  target  updates  its  position  by  using  rgf(range  of  firer). 

Pinpnt  is  called  to  find  out  if  any  foes  detected  the  firer  due  to  its  muzzle  flash. 

If  iflash(I)  =  0,  this  is  a  real  firer,  otherwise  it  is  a  flashing  decoy.  In  this  branch,  we  are  only  con¬ 
cerned  with  a  real  firer  and  the  round  it  fires.  Fire  calls  create  to  set  aside  space  for  information  about 
the  round.  In  this  space.  Fire  stores:  l)  target  ID,  2)  firer  ID,  3&4)  predicted  (x,y)  position  of  target  at 
impact,  5&6)  unused,  7)  probability  that  the  impact  location  of  the  bullet  will  be  sensed,  8)  unused,  9) 
speed  of  target  when  round  was  fired  at  it,  and  10)  speed  of  firer. 

The  number  of  shots  fired  by  the  firer’s  side  is  counted  for  output  statistics  by  kshot(m,l).  Impact 
for  the  round  is  then  scheduled.  For  missiles  systems,  assign  a  guidance  channel  to  the  missile. 

This  completes  calculations  for  the  bullet  that  was  fired.  Non-missile  systems  must  select  single  shot 
or  burst  fire  code,  while  missile  systems  must  select  missile  code. 


c  V7.8 

SUBROUTINE  FIRE  ft.l.it) 
c  7  Fire:  Simulate  firing  of  a  round  &  schedule  effects, 
include  'common. h’ 
integer  bullet 

1  formatff8.2,  lx,  a4,  i3,  ’  fires  at  a4,  i3) 

2  format(f8.2,  lx,  a4,  i3,  '  ran  out  of  ammo.’) 

if  (trace)  print  •,’>fire’ 
busy(I)— .false, 
m  ••  army(I) 
n  —  3-m 

if  (histry)  print  l,t,color(m),l,  color(n),it 
c  Update  rd  counts,  time  of  last  fire. 
nrd(li  —  nrd(I)+I 
nrib(l)  •  nriD(l)+l 
if(nrib(I).gl.nrpb(m))  nrib(I)-l 
nrot(I)  -  nrot(I]+l 
if  (it.gt.O)  tfire(l,it)  -  t 
tfire2(I)  t 

c  Update  positions  &  velocities. 

IF  (it.eq.FLSTGT)  THEN 
rg  -  rgO 

nrg  ••  max0(l,int(0.5+rg/irginc)) 
s(l)-0.0 
s  2  -  rgO 
s(3)  -  0.0 

if  ((m.eq.BLU  .and.  scene. eq.BATTAK)  .or. 

1  (m.eq.RED  .and.  scene.ne.BATTAK))  s(2)  —  -rgO 
ELSE 

dm  —  rgf(t,it,I) 

ENDF 

call  pinpnt  (t,I] 

IF  (iflash(I).eq.O)  THEN 

c  Branch  for  real  firer  (do  nothing  if  firer  is  flashing  decoy) 
c  Create  round  with  various  attributes 
call  create  (10,bullet) 
a(bullet+l)  «  it 
a]bullet+2)  -  I 
tfly  —  tof(m,nrg) 
a(bullet+3)  —  s(l)+tfly*xO(I) 
albullet+4)  —  s(2)+tfly*y0(l) 
a(bullet+7)  —  psen5e(m,nrgj 
a(builet+9)  —  sqrt(vx0(it)**2+vy0(it)**2) 
if  (it.eq.-l)  a(bullet+10)  —  0.0 
if  (it.gt.O)  a(bullet-rlO)  -  sqrt(vxO(I)**2+vyO(I)**2) 
kshol(m,l)  >■  kshot(m,l)  +  1 
c  Schedule  impact  for  rd  &  allot  guidance  channel, 
call  skedul  (t+tfly, bullet, 'impact', it) 

IF  (kindrd(m).eq.4)  THEN 
if  (it.gt.O)  mot(l,it)  -  .true. 

DO  20  k-1,5 

IF  (chanel(m,I,k)  .eq.  0)  GOTO  25 
20  CONTINUE 

25  chanel(m,I,k)  ••  bullet 

ENDF 
ENDIF 

c  Move,  fire,  or  switch  targets  as  required 

IF  (kindrd(m).le.2  .or.  kindrd(m).eq.5)  THEN 


if  (nrpb(m)  .le.l)  call  frdssg(t,I,it,m) 
if  (nrpb(m)  .ge.2)  call  frdbst(^I,it,m) 

ELSEIF  (kindrd(m)  .eq.  4)  THEN 
c  Simultaneous  missiles  branch 

if  i(nchan(I).lt.nchans(m))  call  frdmsl(t,I,it,m) 
ENDIF 

if  (histry  .and.  nrd(I).ge.nrds(m))  print  2,t,color(m),I 
if  (trace)  print  •,'<fire' 

Elfe 
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6.3  Frdssg:  Results  of  Firing  a  Single  Shot  Gun.  Frd  ssg  schedules  what  the  firer  does  after 
firing  a  single  shot  gun.  The  primary  consideration  is  whether  it  has  more  rounds  or  not.  If  so,  it  will 
switch  to  a  new  target  or  continue  to  fire  at  the  current  target.  If  not,  it  will  hide  if  it  can  move. 


CODE 

MATH 

COMMENT 

nrd(I) 

r 

#  rounds  fired  by  tank. 

nrds(n) 

*'max 

magazine  capacity  (Ammo  load). 

tactic(n) 

3 

firer  has  more  rounds  to  shoot. 

Side  n  fires  a  fixed  number  of 

nrot(I) 

nrpt(n) 

busy(I) 

loader(n) 

k 

rounds  at  a  target. 

Number  of  rounds  fired  at  current  target. 

Number  of  rounds  per  target  before  switching  targets. 
False  for  tank  not  busy;  True  for  tank  is  busy. 

1  for  manual  loader,  2  for  automatic  loader  then  manual. 

tvar 

A/|0.5| 

3  for  automatic  loader  parallel  with  manual  gunning. 
Median  between  rounds  of  tank  cannon. 

dm 

dm  =  t,e 

Random  human  reaction  time  (sec). 

tcon(n) 

Minimum  time  to  fire  tank  cannon  (sec). 

dt 

For  k  =  1  (manual  loading). 

empty(I) 

At  =  dm  +  t. 

At  =  max{dm,  f,) 

For  it  =  2  (series  auto-loading), 
for  Jb  =  3  (parallel  auto-loading). 

No  ammo. 

Does  the  firer  have  more  rounds  to  fire?  The  number  of  rounds  it  fired  is  nrd(I)  and  the 
number  of  rounds  it  started  with  is  nrds(n).  It  has  more  rounds  iff  nrd(I)  <  ndrs(n). 

Should  it  switch  targets?  If  the  firer  has  more  rounds  to  shoot,  the  next  consideration  is  whether 
it  switches  targets  or  continues  to  fire  at  the  current  target.  If  tactic(n).eq.3,  then  the  policy  is  to  fire  a 
fixed  number  of  rounds  at  a  target  and  then  switch  targets.  The  number  of  rounds  to  fire  is  nrpt(n),  so  if 
nrot(I).eq.nrpt(n),  the  policy  has  been  satisfied  and  the  firer  attempts  to  switch  targets. 

Switching  targets.  Upon  disengaging,  a  halt-to-fire  system  that  can  still  move  will  move  before 
firing  at  the  new  system,  so  this  kind  of  firer  is  scheduled  to  accelerate  now. 

Firing  again  at  the  current  target.  If  the  tank  switches  targets  after  firing  a  fixed  number  of 
rounds  at  the  target  and  has  done  so,  it  will  switch  targets.  Otherwise,  the  code  schedules  the  next  fire  at 
the  target.  The  time  the  next  round  will  be  fired  depends  on  the  loader  type. 

Out  of  ammo.  The  code  for  a  system  that  has  ammo  ends  here  and  the  code  now  treats  the  tank 
that  is  out  of  ammo.  The  tank  is  out  of  ammo  when  empty(I)  =  .true.  If  the  tank  is  not  going  but  can 
move,  the  code  schedules  an  acceleration  event  right  away  and  a  hide  event  in  thide(n)  seconds.  Since  the 
tank  cannot  shoot  any  more  it  seeks  cover. 

c  V7.3 

SUBROUTINE  FRD  SSG  (t,  I,  it,  n)  c 

c  6  Frd  ssg:  Schedule  effects  after  firing  single  shot  gun. 
c  t  -  time  (sec), 

c  I  -  firer 

c  it  •  target 

c  n  -  side  firer  is  on  c 

include  'common. h' 
logical  can  go,  done,  tactcS 

1  formatf’FRD  SSG:  t,!,it,n-’,f7.2,3i3) 

2  format(f8.2,  lx,  a4,  i.3,  'is  out  of  ammo.  Will  attempt’, 

1  '  to  hide  if  mobile.') 

c 

if  (trace)  print  *,’>frd  ssg’ 

IF  (nrd(I).lt.nrds(n))  THEN 

c  Have  ammo  branch  c 

tactc3  ■■  tactic(n).eq.3 
done  -  nrot(I).eq.nrpt(n) 

IF  ((tactc3  .and.  done))  "rHEN 
c  Switch  targets  after  firing  a  fixed  nr  of  rds  at  it 
busy(I)  —  .false. 


call  dis  eng  (t,  I,  it, .true. ..true.) 

If  no  other  it  and  can  move,  skedul  acceleration 
if  (can  go(I,t)  .and.  ishtf^^.eq.l) 

1  call  5kedul(t,I,’accel  ’.NULL) 

nrot(I)  —  0 

ELSElF  (it.gt.O)  THEN 
Schedule  next  round  fired 
k— loader(n) 

dm  tvar(n)*exp(rann(0.5)) 
if  (k.eq.l)  at— dm 
if  (k.eq.2l  dt— tcon(n)  +  dm 
if  (k.eq.3)  dt-amaxl(tcon(n),dm) 
call  skedul  (t+dt,I,’fire  ’,it) 

ENDIF 

ELSE 

Out-of-ammo  branch 
empty(I)  —  .true. 

IF  (cango(I,t))  THEN 
cwl  skedul  (t,I,’accel  ’.NULL) 
call  skedul  (t-l-thide(n),I,'hide  ’.NULL) 

ENDIF 
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ENDIF 

if  (trace)  print  *,’<frd  ssg’ 

EW 
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5.4  Fi  dbst:  Results  of  Firing  a  Round  of  a  Burst.  Frd  bst  schedules  what  the  hrer  does  after 
firing  a  round  in  a  burst.  If  the  firer  is  out  of  ammo  and  is  mobile,  it  will  attempt  to  hide.  When  the  sys¬ 
tem  has  ammo  it  either  disengages  the  old  target  after  a  certain  number  of  rounds  and  searches  for  a  new 
target  or  the  firer  schedules  to  fire  the  next  round. 

cV7.4 

SUBROUTINE  FRD  BST  (t,  firer.  tgt,  armyf) 
c  0  Frd  bst:  just  fired  a  gun  burst,  now  schedule  effects, 
include  'common. h’ 
logical  can  go,  done,  tactcS 
integer  armyf,  firer,  tgt 

1  formatl’FRD  BST:  t,firer,tgt,armyf— ',f7.2,3i3) 

2  rormat((S.2,  lx,  a4,  i3,  'is  out  of  ammo.  Will  attempt*, 

1  '  to  hide  if  mobile.') 

c 

if  (trace)  print  *,'>frd  bst' 

IF  (nrd(firer).ge.nrds(armyf))  THEN 
c  Out-of-ammo  branch 

IF  (cango(firer,t))  THEN 
call  skedul  (t,firer,'accel  '.NULL) 
call  skedul  (t-hthide(armyf), firer, 'hide  '.NULL) 

END  IF 
ELSE 

c  Have  ammo  branch 

tactcS  —  tactic(armyf).eq.3 
done  —  nrot(firer).eq.nrpt(armyf) 

IF  ((tactc3  .and.  done))  THEN 
c  Switch  targets  after  firing  a  fixed  nr  of  rds  at  it 
call  dis  eng  (t,  firer,  tgt, .true., .true.) 
c  If  halt-to-fire  &  no  tgts  &  cango,  skedul  acceleration 

if  (ishtfs(armyf).eq.l  .and.  can  go(firer,t)) 

1  call  skedul(t, firer, 'accel  '.NULL) 
nrot(firer)  —  0 
ELSE 

c  Schedule  next  round  fired 
timea  —  tconfarmyfj 
timeb  -  tcon( armyf) 
timec  —  tvarfarmyf  j  *  exp(rann(0.5)) 
dt  —  amaxl(timea,timeb-ftimec) 
call  skedul  (t-hdt,firer,'fire  ’.tgt) 

ENDIF 

ENDIF 

if^ace)  print  *,'<frd  bst' 
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5.5  FrdmsI:  Results  of  Firing  a  Missile.  Frd  msl  schedules  what  the  firer  does  after  firing  a 
missile.  If  the  firer  has  more  ammo,  it  may  ‘reload’  (replace  an  empty  missile  pod),  fire  again  at  the 
current  target,  or  switch  targets.  Otherwise,  it  does  nothing  further. 

This  routine  is  called  after  a  missile  is  fired  but  not  until  a  guidance  channel  is  available  for  the  next 
missile.  If  another  guidance  channel  is  available  immediately  after  firing  a  round,  the  fire  routine  calls 
this  routine.  Otherwise,  a  guidance  channel  will  become  available  at  impact,  so  the  impact  routine  calls 
this  routine.  (If  the  missile  is  aborted  it  is  because  the  target  went  behind  the  terrain.  The  routine  abort 
should  be  called  immediately  so  it  can  fire  again.) 

If  the  system  is  out  of  ammo,  it  does  nothing  further. 

If  the  current  missile  pod  is  empty,  the  firer  is  considered  temporarily  empty,  any  fire  and  select 
events  are  cancelled,  and  a  reload  is  scheduled.  Since  the  current  target  is  discarded,  the  code  resets  the 
number  of  rounds  on  target  (nrot=0). 

If  ammo  is  ready  to  be  fired  the  system  will  either  shoot  again  at  the  same  target  or  switch  targets. 
This  depends  on  the  firing  policy  it  is  using  and  whether  it  has  satisfied  that  policy.  Under  tactic  3,  the 
firer  fires  a  fixed  number  of  rounds  at  the  target  and  then  switches  targets.  If  the  firer  is  using  this  policy 
and  has  satisfied  it,  switciiing  occurs;  otherwise  the  next  round  is  fired  in  1  /lO  sec. 

Finally,  if  the  target  ID  is  not  zero,  clear  the  record  that  the  firer  is  on  target.  It  is  possible  that 
‘it=-l’;  this  implies  the  target  is  false;  however,  there  is  no  place  in  the  fot  matrix  to  store  data  for  false 
targets. 


CODE 

COMMENT 

t 

Time  (sec) 

I 

ID  of  firer 

it 

ID  of  target 

m 

1  if  target  is  Blue,  2  if  Red 

nrd(I) 

Number  of  rounds  fired  by  ith  tank 

nrds(m) 

Magazine  capacity  of  systems  on  mth  side. 

nipods(m) 

Number  of  rounds  in  pod  for  mth  side. 

tactic(m) 

Side  m  fires  a  fixed  number  of  rounds  at  tgt 

nrot(I) 

Number  of  rounds  I  fired  at  current  target 

nrpt(m) 

Number  of  rounds  per  target  before  switching  targets 

empty 

True  missile  pod  is  empty 

fot(i,j) 

True  IFF  firer  i  on  target  j. 

c  V7.6 

SUBROUTINE  FRD  MSL  (t.  1,  ii,  m) 
c  0  FrdmsI:  Fired  a  missile.  Now  schedule  effects 
include  'common. h' 
logical  done,  lactc3 

2  format(f8.2,  lx,  ad,  i3.  '  begins  to  reload  ') 

if  (trace)  print  *,'>frdmsr 
IF  (nrd(l).lt.nrds(m))  THEN 
c  System  has  more  rounds  on  hoard. 

tF  (mod(nrd(I),nipods(m)j.gt.O  .or.nrd(Il  eq.O)  THEN 
c  System  has  more  rounds  in  pod. 
taclc3  —  tactic(m).eq.3 
done  —  nrot(I).eq.nrpt(m) 

IF  (tactc3  .and.  done)  TVIEN 
c  Switch  targets  after  firing  a  fixed  nr  of  rds  at  it 

if  (it.ne.FLSTGT)  fot(I.it)  false 
call  selecs  (t.I.O.C) 

ELSE 

c  Schedule  next  round  fired 

call  skedul  (t+0  1,1, 'fire  ',it) 

END  IF 
ELSE 

c  Treat  empty  missile  pod 


empty(i)  «  true 
call  cancein.'fire  '.it) 
call  cancelfl, 'select', .NULL) 
nrot(I)  —  0 

shud  htf  that  is  slowing  to  engage  speed  up  now? 
call  skedul  (t+trelod(m),l, 'reload', NT.ILL) 
if  (histry)  print  2.l,color(m).I 
END  IF 
END  IF 

if  (it.gt.O)  fotll.it)  -  -false 
if  (trace)  print  *,'<frdmsr 
END 


fil 


5.6  Reload:  Bring  up  Another  Pod  of  Missiles.  The  subroutine  Reload  simulates  completion  of 
reloading  when  a  pod  of  missiles  is  empty.  The  primary  consideration  is  whether  the  firer  is  a  defender 
who  has  popped  down  to  reload  or  is  fully  exposed  while  reloading.  If  it’s  a  defender,  it’ll  pop-up  and 
begin  searching.  Otherwise,  it’s  already  fully  exposed  and  attempts  to  select  a  target  right  away. 


CODE 

MATH 

COMMENT 

t 

Time  (sec) 

I 

ID  of  tank 

firer 

Number  of  the  firer 

nrtgt 

N|0.S| 

Number  of  current  target  of  tank 

thuman 

At  =  2e 

Human  reaction  time 

c  V7.2 

SUBROUTINE  RELOAD  (t,I) 
c  6  Reload:  simulates  completion  of  reloading 

c  30  Oct  85  Fixed  statement  printing  error  message 

include  'common. h' 
logical  defndr 

1  rormat(r8.2,lx,a4,i3,’  finishes  reloading') 

2  format(f8.2,lx,a4,i3,'  pops-up') 


c 


c 


c 


if  (trace)  print  •,'>reload' 
m  -  army(I) 

ir(histry)  print  l,t,color(m),l 
nrtgt(I)  —  0 
emptyfl)  —  .false. 

defndr  —  (scene. eq.BATT.AK  and.  m.eq.RED)  .or. 

(scene. eq.RATTAK  .and.  m.eq.BLU) 

IF  (defndr)  THEN 

Defender  pops  back  up  and  will  start  searching, 
if  (histry)  print  2,t,color(m),I 
call  aprter(t,l,tgt,HD) 

ELSE 

Attacker  or  'meeter'  never  popped  down, 
thuman  —  2.0*exp(rann(0.S)) 
call  selecs(t, I, thuman) 

END  IF 

if  (trace)  print  *,’<reload’ 

END 
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6.  HIT  PROBABILITY  AND  IMPACT  ROUTINES 

These  routines  are  called  when  the  round  passes  through  the  target  plane.  If  the  target  is  a  false  tar¬ 
get,  the  gunner  seeks  a  new  target.  They  find  whether  the  round  hits  the  target  or  not  and  whether  it  was 
a  dud  or  not.  Missile  guidance  channels  are  cleared  and  pop-down  to  reload  is  sometimes  initiated.  Under 
certain  policies,  the  firer  switches  to  a  new  target.  If  a  hit  is  not  a  dud,  the  damage  event  is  scheduled. 

The  figure  below  shows  the  calling  hierarchy  of  the  routines  discussed  in  this  section.  The  accerr 
routine  and  its  subroutines  are  discussed  in  the  next  section. 


0.1  Impact:  Find  What  Bullet  and  Firer  Do  at  Impact.  The  impact  event  simulates  what 
occurs  when  the  round  passes  through  the  target  plane.  The  target  may  be  a  false  target,  in  which  case 
the  gunner  realizes  it  is  a  false  target  and  switches  to  a  new  target.  If  the  round  is  a  direct  fire  round  and 
the  target  is  in  full  defilade  no  hit  occurs.  If  the  round  is  top  attack  or  the  target  is  exposed,  impact  finds 
if  a  hit  occurs. 


Finally,  impact  finds  what  the  firer  does.  If  the  firer  fires  simultaneous  missiles,  the  guidance  chan¬ 
nel  is  cleared.  This  firer  disengages  and  if  pods  are  empty,  he  may  pop  down  to  reload.  Other  types  of 
firers  may  simply  disengage  the  target. 

First  impact  recovers  some  useful  information  about  the  round,  then  it  figures  out  the  effect  of  the 
round  on  the  target,  and  finally,  it  decides  what  the  firer  does  next.  It  recovers  the  target  ID,  and  firer  ID 
as  well  as  finding  which  side  the  firer  is  on,  what  type  of  round  it  is  firing  and  the  exi>osure  of  the  target. 

Next  it  finds  whether  the  round  hit  or  not.  The  target  may  be  a  false  target  or  a  ‘real’  one.  If  the 
target  is  a  false  target  (a  natural  object  that  was  mistaken  for  a  target),  the  code  simply  tallies  the  result 
for  the  summary  statistics.  If  the  target  has  vanished  and  the  round  is  a  typical  ballistic  round,  the  code 
tallies  that  the  round  hit  the  ‘berm’  (the  intervening  terrain).  In  this  case,  missiles  have  already  been 
aborted  and  impact  doesn’t  occur.  Top  attack  rounds,  however,  still  have  a  chance  of  hitting  the  target. 
If  the  target  is  ‘real’  and  intervening  terrain  is  no  problem,  impact  calls  the  may  hit  routine  to  see  if  the 
round  actually  hits  the  target  or  not. 

The  rest  of  impact  treats  the  future  activities  of  the  firer.  If  the  round  was  a  missile,  impact  clears 
the  guidance  channel,  disengages  the  target,  and  attempts  to  select  a  new  target.  If  the  missile  firer  is  in 
hull  defilade,  all  guidance  channels  are  free,  and  the  missile  pod  is  empty  then  the  firer  will  pop  down 
while  it  brings  up  another  pod  of  missiles. 

If  the  round  was  not  a  missile,  the  firer  may  switch  targets.  It  does  this  if  the  current  target  is  a 
false  target,  or  is  out  of  range  (beyond  4km),  or  the  firer's  policy  is  to  switch  targets  after  each  hit. 


CODE 

COMMENT 

t 

Time  (sec) 

bullet 

ID  of  bullet 

it 

ID  of  target 

I 

ID  of  firer 

n 

Side  of  firer  (l=Blue,  2==Red) 

k 

Kind  of  round  (1=KE,  2=HEAT,  4=msl,  5=TOP  .'ITK) 

expose 

Exposure  of  tank  (1=FD,  2=HD,  3=FE) 

rgx 

Range  to  target  (m). 

mot(l,it) 

True  iff  missile  on  target 

fot(I,it) 

True  iff  firer  on  target 

nchan(I) 

Number  of  busy  guidance  channels  for  firer 

nchans(m) 

Number  of  guidance  channels  for  side  m  tanks 

empty(I) 

True  iff  current  missile  pod  or  system  is  out  of  ammo 

hit 

True  iff  current  missile  hit  target. 

tactic(m) 

Target  switching  policy  for  side  m. 

ndet(l) 

Number  of  detections  Ith  tank  has. 

nrtgt(I) 

ID  of  firer’s  latest  target. 

c  V7.5 

SUBROUTINE  IMPACT  (l,  bullet) 
c  0  Impact:  find  what  bullet  does  &  what  firer  does, 
include  ’common. h’ 
logical  loaded,  hit 
integer  bullet,  expose 
atr{i)  «  a(bullet+i) 

if  (trace)  print  *,  ’>  impact’ 


c  Find  useful  variables, 

it  ••  atr(l) 

I  -  atr(2) 
n  -  army(II 
k  -  kindrd(n) 
expose  —  knceal(it) 
rgx  —  0.0 

c  Find  what  bullet  does 

IF  (it  eq.FLS  TGT)  THEN 
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c  Round  does  nothing. 

ksho^n.l)  “  kshoUn,4)+l 
ELSEIF  (expose.eq.FD  .and.  k.le.4)  THEN 
c  Count  round  hitting  berm. 

kshot(n,5)  —  kshot(n,S)+l 

if  (histry)  print  *,  Tgt  in  full  defilade.' 

ELSE 

c  See  if  round  hits. 

call  mayhit(t,I,it,n,k,atr(9),atr(10),expose,hit,rgx) 

ENDIF 

^bullet)  —  -a(bullet) 
c  Find  what  firer  does. 

IF  (k.eq.4)  THEN 
c  Missile 

c  Clear  guidance  channel. 

D0  20j-1,5 

IF  (chanel(n,l,j).eq.bullet)  GOTO  30 
20  CONTINUE 

print  *,  'IMPACT:  Msl  not  assigned  a  channel.' 
print  *,  'Channels  assigned  to',(chanel(n,I,j),j— 1,5) 
print  *,  'Msl  #— '.bullet,'  Contact  Fred  Bunn' 

STOP 

30  CONTINUE 

chanel(n,I,j)  —  NULL 
loaded  —  nchan(I].ge.nchans(n) 
call  diseng  ft,I,it,. true., loaded) 
mot(I,it)—. raise, 
fotfl.it)— .false. 

if  (knceal{l).eq.HD  and.  nchan(l).eq.0  .and.  empty(I)) 

1  call  skedul(t,l,'popdn  '.NULL) 

ELSE 

c  KE,  HEAT,  or  STAFF  |rethink  this  for  STAFF) 

IF  (it.eq.FLS  TGT  .or.  hit.and.tactic(n).eq.2  .or. 

1  rgx.gt.4000.0)  THEN 

c  Switch  targets  if  false  target  or  rd  hit  &  I  switch  on  a  hit. 

c  Won't  go  here  if  I  hit  the  berm;  fls  tgts  don't  go  behind  the 

c  berm,  and  if  true  tgts  do,  the  rd  won't  hit. 

ndet(i)  -  ndet(l)-l 
nrtgt(I)-0 

call  diseng(t,l,il>. true.,. true.) 

ENDIF 

ENDIF 

if^ace)  print  *,  '<  impact' 
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0.2  Mayhit:  Find  Whether  the  Round  Hits.  Mayhit  finds  whether  the  round  hits,  handles 
results  of  a  hit  or  miss  and  tallies  results.  First,  it  finds  the  position  of  the  round  with  respect  to  the  aim 
point.  If  it  is  above  the  turret  ring,  mayhit  finds  if  it  hit  the  turret.  If  below  and  the  target  is  fully 
exposed,  mayhit  finds  if  it  hit  the  hull.  If  the  round  hits  the  target,  mayhit  finds  if  the  round  was  a  dud 
or  not.  If  a  hit  is  not  a  dud,  the  routine  schedules  damage.  It  also  tallies  the  round  results  as  a)  sensed 
miss,  b)  lost  miss  c)  hit,  or  d)  hit  but  dud. 

Does  the  round  hit?  The  routine  tentatively  sets  hit=.fa]se.,  finds  the  relative  positions  of  firer 
and  target,  and  from  this  information  finds  the  crossing  angle.  The  crossing  angle  is  the  angle  between  the 
target  velocity  and  the  target  position  (relative  to  the  firer).  It  then  calls  accerr  to  find  the  error  of  the 
round  relative  to  the  aim  point. 

The  next  step  is  to  find  the  position  of  the  round  relative  to  the  center  of  the  turret  ring.  If  the  tar¬ 
get  is  fully  exposed,  the  aim  point  is  .3  meters  below  the  center  of  the  turret  ring.  If  the  target  is  hull 
defilade,  the  aim  point  is  .5  meters  times  the  height  of  the  turret  above  the  bottom  of  the  visible  turret.  If 
the  height  of  the  incoming  round  is  greater  than  0,  then  it  may  have  hit  the  turret;  otherwise  it  may  have 
hit  the  hull  (if  the  target  was  fully  exposed.)  The  routine  then  calls  izhit  to  find  if  the  round  passes 
through  the  hull  or  turret  box. 

Treating  a  hit.  When  a  hit  occurs,  the  code  tallies  a  hit  for  the  appropriate  side  and  tallies  a  hit 
on  the  target.  If  the  target  has  received  enough  hits  to  satisfy  the  target  switching  policy  of  the  firer ’s 
side,  the  code  schedules  a  ‘late  kill.’  Missed(I,it)  is  set  to  false.  This  information  will  be  used  to  select  or 
reject  this  target  later.  Prevrd(I)  is  set  to  2.  This  information  will  be  used  by  the  accuracy  routines  to 
inhibit  redrawing  variable  biases  because  the  next  shot  at  the  target  will  be  a  subsequent  round. 

Duds.  Next,  the  code  finds  if  the  round  was  a  dud.  If  so,  the  dud  is  tallyed  for  the  side.  Otherwise, 
the  code  schedules  damage  which  will  determine  what  if  any  damage  results. 

Treating  a  miss.  The  routine  tallies  a  miss  for  the  side  and  for  the  firer.  Then  it  determines 
whether  the  firer  sensed  the  miss  or  not. 

Finally,  whether  the  round  hit  or  not,  the  code  checks  to  see  if  the  target  or  firer  was  moving  at  fire 
time  or  at  impact  time.  In  either  case,  prevrd  is  set  to  1,  to  force  the  next  round  to  be  treated  like  a  first 
round  on  the  target  by  the  accuracy  routines.  (The  drawing  of  variable  biases  is  inhibited  only  for  subse¬ 
quent  rounds  from  a  stationary  firer  on  a  stationary  target.) 


CODE 

COMMENT 

t 

Time  (sec) 

I 

ID  of  firer. 

it 

ID  of  target. 

n 

Side  of  firer  (l=Blue,  2=Red). 

k 

Kind  of  round. 

vl 

Velocity  of  target  when  round  was  fired  (m/s). 

v2 

Velocity  of  firer  when  round  was  fired  (m/s). 

expose 

Exposure  of  target  (FD,  HD,  or  FE). 

hit 

True  iff  round  hits  target. 

rgx 

Range  to  target  (m). 

crs  ang 

Crossing  angle  (rad). 

vxO(it) 

Last  computed  speed  of  target  (m/s). 
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CODE _ COMMENT _ 

life(it)  l=Alive,  2=M-kill,  3=F-kill,  4=M&F-kill,  5=I-kilI,  6=K-kill 

nhot(it)  Number  of  hits  on  target  after  M&F-killed. 

nbump(n)  Number  rounds  to  fire  at  M&F-killed  tgt  before  discarding  it. 
missed(I,it)  True  iff  the  round  missed  the  target. 

prevrd(I)  l=lst  round  on  tgt,  2=previous  was  a  hit,  3=previous  was  a 

sensed  miss,  4=previous  was  lost  miss. 
reliab(n)  Probability  round  is  reliable  for  nth  side, 

nrg  Number  of  range  band. 

psense(n,nrg)  Probability  of  sensing  miss  for  tank. 


SUBROUTINE  MAYHIT  (t,I,il,n,k,vl,v2,«xpose,hil,rgx) 

May  hit:  Find  what  the  round  does. 

include  ’common. h' 

common  /cimpct/  x,y .theta,  disp 

logical  missed 

common  /MayPri/  missed(NN,NN) 
save  /cimpct/,  /MayPri/ 
integer  expose 
logical  hit,  izhit 

format(f8.2,lx,a4,i3,’  Hits  berm’) 

if  (trace)  print  *,  ’>  may  hit’ 
kshot(n,6)  —  kshot(n,6)+I 
Find  whether  a  hit  occurs, 
hit  —  .false. 

Find  position  of  round  w.r.t.  the  aim  point, 
rgx  -  rgf(t,I,it) 
crs  ang  0.0 

if  (vxO(it).ne.O.O)  crs  ang  —  anglef(s,vt) 
call  accerr(n,rgx,I,crsang,vl,v2,x,y,disp) 

Find  position  of  round  w.r.t  center  of  turret  ring, 
if  (expose. eq.FEj  y—y-0.3 
if  (expose.eq.HD)  y—y+0.5*sysdim(n, TURRET) 

Find  whether  round  hits. 

IF  (y.gt.0.0)  THEN 
hit  ••  izhit(TURRET,l,n,x,y, theta) 

ELSE 

IF  (expose. eq.FE)  THEN 
hit  —  izhit(HULL,5,n,x,y,theta) 

ELSE 

if  (histry)  print  1,  t,  color(n),  I 
ENDIF 
END  IF 

IF  (hit)  THEN 
Treat  hit. 

kshot(n,8)  —  kshoUn,8)+l 

if  (life(it).eq.MFKILL)  nhot(it)— nhot(it)+l 

if  (nhot(it).gt.nbump(n))  call  skedul(l,it,’ikill  ’.NULL) 

missed(l,it)  —  .false. 

prevrd(I)  —  2 

IF  (reliab(n)  .ge.  ranu(O))  THEN 
call  skedul  (t, I, ’damage’, it) 

ELSE 

Round  is  a  dud. 

kshot(n,9)  —  kshot(n,9)+l 
ENDIF 
ELSE  . 

Treat  miss. 

kshot(n,7)  —  kshot(n,7)+l 

missed(I,it)  —  .true. 

nrg  —  max0(l,int(0.5+rgx/rgincr)) 

IF  {psense(n,nrg)  .gt.ranu(O.O))  THEN 
prevrd(I)  -  4 

if  (histry)  print  Miss  is  sensed.’ 

ELSE 

prevrd(l)  3 

if  (histry)  print  Miss  is  not  sensed,’ 

ENDIF 

ENDIF 

Careful.  If  either  moving,  make  sure  nx  rd  is  treated  as  1st 
round  if  SS  case  occurs, 

if  (vxO(I),ne.O.O  .or.  vxO(it).ne.O.O)  prevrd(I)— 1 


if  (vl.gt.O  .or. 
if  (trace)  print 
Effc 


v2.gt.O)  prevrd(I)— 1 
*,  ’<mayhit’ 
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6.3  Ishit:  Find  i'  the  Target  Is  Hit.  Ishit  discards  rounds  that  are  too  high  or  toe  low.  For 
other  rounds,  it  finds  the  orientation  of  the  hull  or  turret  and  its  horizontal  bou  daries.  If  the  round  is 
within  the  horizontal  boundaries,  ishit  reports  a  hit. 

The  array  sysdim  contains  the  distance  'rom  the  center  of  the  turret  ring  to  the  ith  edge  of  the  tar¬ 
get.  For  example,  sysdim(l,5)  is  the  distan-  e  from  the  center  of  the  turret  ring  to  the  bottom  of  the  hull. 
These  dimensions  help  determine  if  the  round  was  too  high  or  too  low. 


Distance  from  Center 
of  Turret  Ring  to 


turret 

hull 

i 

sysdimfi) 

i 

sysdim(i) 

1 

top 

5 

bottom 

2 

side 

6 

side 

3 

front 

7 

front 

4 

rear 

8 

rear 

The  code  tentatively  sets  izhit=. false.  It  then  checks  to  see  if  the  vertical  error  of  the  round  is 
greater  that  the  vertical  dimensions  of  the  target  box.  If  .*-0.  it  is  a  miss  and  the  code  reports  the  miss  if 
the  print  flag  is  set.  If  not,  the  code  checks  to  see  T  the  round  is  within  the  horizontal  dimensions  of  the 
box.  To  do  this,  it  uses  the  ranang  routine  which  draws  a  random  angle  from  the  cardioid  or  frontal  dis¬ 
tribution.  This  angle  will  be  used  as  the  orientation  of  the  target  relative  to  the  incoming  round.  Next 
the  code  calls  the  bounds  routine  to  find  the  left  and  right  edges  of  the  target  box.  If  the  horizontal  error 
is  within  the  horizontal  boundaries  of  the  box  a  hit  has  occurred. 

Xj  <  r  <  r. 


CODE 

COMMENT 

nbox 

l=turret,  2=hull 

ndim 

Index  of  box  height  (I  for  turret,  5  for  hull). 

n 

Side  of  target  (l=Blue,  2=Red) 

X 

X  coordinate  of  bullet  on  target  (m). 

y 

Y  coordinate  of  bullet  on  target  (m). 

theta 

Angle  at  which  round  struck  target  (rad). 

izhit 

True  iff  the  round  hit  the  target.  Logical 

ylimit 

Height  of  hull  or  turret  (rrl. 

iangd 

1)  if  cardioid  distribution,  2)  if  frontal  distribution 

xleft 

X  coordinate  of  left  side  of  tank  (m). 

xright 

X  coordinate  of  right  side  of  tank  (m). 

c  V7.2 

LOGICAL  FUNCTION  IZHIT  (nbox,  ndim,  n,  x,  y.  theta) 
c  6  Iz  hit:  find  if  the  target  is  hit. 
include  ’common. h’ 

1  format  (’  IZHIT:  the  round  is  high,  y,  ylimit,  x  —’,317.3) 

2  format  I’ IZHIT:  the  round  is  low.  y,  ylimit,  x —’,3f7. 3) 

3  format  (’  IZHIT:  the  round  is  wide,  y,  ylimit  -’,  2f7.3,/ 

I  ’  X,  xleft,  xright  —  ’,  3f7.3) 

4  format  (’  IZHIT:  the  round  hits,  y,  ylimit  — ’,  2r7,3,/ 

1  ’  x,  xleft,  xright  —  ’,  3f7.3) 

c 

if  (trace)  print  •,’>izhit' 

izhit  —  .false. 

ylimit  —  sysdim(n,ndirr.) 

IF  (ylimit.le.abs(y))  THEN 
c  Too  high  or  too  low 

IF  (  keym(8).gt.O)  THEN 
if  (y.gt.0.0)  print  1,  y,  ylimit,  x 
if  (y.le.0.0)  print  2,  y,  ylimit,  x 
END  IF 
ELSE 

c  Height  ok 

theta  —  rndang(iangdj 

call  bounds  (n,  nbox,  theta,  xleft,  xright) 

izhit  —  xleft. It. X  .and.  x. It. xright 


IF  (keym(6).gt.O)  THEN 

iflizhitj  print  3,  y, ylimit, x, xleft, xright 
if(izhit)  print  4,  y,ylimit,x,xlert,xright 
ENDIF 
END  IF 

if^ace)  print  *,’< izhit’ 
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6.4  Bounds:  Find  the  Horizontal  Bounds  of  the  Hull  or  Turret. 

Bounds  finds  the  distances  from  the  center  of  the  turret  ring  to  the  left  and  right  edges  of  the  tar¬ 
get  box. 

Theta  is  the  angle  from  the  nose  of  the  box  to  the  bullet  hitting  the  turret  center.  Calculations  with 
theta  are  done  to  assure  that  the  angle  is  between  0  and  360  degrees. 

The  array  sysdim  contains  the  distance  from  the  center  of  the  turret  ring  to  the  ith  position.  Rl  is 
the  left  boundary  and  r2  is  the  right  boundary.  C  is  the  portion  of  rl  and  r2  due  to  the  width  of  the  tar¬ 
get.  S2  and  s3  are  the  portions  due  to  the  ’depth’  of  the  target. 

The  figure  below  shows  the  4  corners  of  the  turret  and  the  angle  from  the  nose  to  the  bullet.  The 
table  below  lists  the  left  and  right  horizoi:tal  boundaries  of  the  box  when  the  bullet  enters  it  at  a  certain 
angle.  The  variables  c,  s2,  and  s3  are  used  to  find  these  boundaries. 


Table  5.  Horizontal  Boundaries 


Quadrants 

0<fl<90 

9O<0<18O 

180<e<270 

27O<0<36O 

QIH 

c 

d 

b 

a 

b 

-  a _ 

c 

d 

^  front 


The  figure  below  shows  how  to  find  the  horizontal  boundaries  of  a  hull  or  turret  using  c,s2,and  s3. 
This  case  is  where  the  bullet  enters  the  box  at  an  angle  between  0  and  90  degrees.  The  horizontal  boun¬ 
daries  of  the  other  3  cases  can  be  found  in  a  similar  manner. 


d2=  distance  from  center  of  turret  ring  to  turret  side 
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d3=  distance  from  center  of  turret  ring  to  turret  rear 
d4=  distance  from  center  of  turret  ring  to  turret  front 
c=  d2cos0 
s2=  dSsintf 
s3=  d4sin9 


c  V7.1 

SUBROUTINE  BOUNDS  (narmy,  box,  angll,  rl,  r2) 
c  6  Bounds:  find  the  horizontal  bounds  of  hull  or  turret, 
c  Definitions: 

c  angll  -  angle  oR  the  nose  of  the  box  (rad), 

c  box  -  1  means  turret  box,  2  means  hull  box. 

c  narmy  -  1  means  blue  firers,  2  means  red  firers. 
c  c,  s2,  s3  -  temporary  variables, 
c  rl,  r2  -  left  and  right  boundaries  of  boxes  (m). 
include  'common. h’ 
integer  box 
c 

if  (trace)  print  *,’>  bounds’ 

c  initialize 

temp  —  (angll+twopi)/twopi 

theta—  (temp-aint(temp))*twopi 
c  theta  —  amod  (angll+twopi  twopi) 

c  —  sysdim(narmy,'4*(box-l)+2)  *  cosftheta) 
s2—  sysdim(narmy,4*(box-lj+3j  *  sinitheta) 
s3-  sysdim(narmy,4*(box-l)+4)  *  sin(theta) 
c 

IF  (theta.le.0.2S*twopi)  THEN 
c  case  0  <  theta  <  —  90 

rl  -  -s2  -  c 
r2  -  s3  +  c 

ELSEIF  (theta.le.0.5*twopi)  THEN 
c  case  90  <  theta  <  —  180 
rl  -  -s2  +  c 
r2  —  s3  -  c 

ELSEIF  (theta.le.0.75*twopi)  THEN 
c  case  180  <  theta  <—  270 
rl  —  s3  +  c 
r2  -  -s2  -  c 
ELSE 

c  case  270  <  theta  <—  360 
rl  -  s3  -  c 
r2  -  -s2  +  c 
ENDIF 

if  (trace)  print  *,’< bounds' 

END 
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7.  ACCURACY  ROUTINES 


The  accuracy  routines  read  and  interpolate  in  accuracy  tables.  These  tables  contain  data  for  station¬ 
ary  firer  vs  stationary  target,  stationary  firer  vs  moving  target,  and  moving  firer  vs  stationary  target. 

The  diagram  below  shows  the  relationship  between  the  accuracy  routines.  The  dashed  line  between 
boxes  shows  which  routines  share  data  via  common.  The  impact  routine  mayhit  calls  accerr. 


71 


7.1  Rderor:  Read  Accuracy  Data  for  One  Side.  This  routine  reads  accuracy  data  for  stationary 
firers  versus  stationary  targets,  stationary  firers  versus  moving  targets,  and  moving  firers  versus  stationary 
targets.  If  desired,  this  data  is  printed  to  standard  output  with  appropriate  labels.  The  routine  then 
prints  the  name  of  the  accuracy  data  file  used. 

Rderor  reads  in  data  for  l)  stationary  firer  vs  stationary  target,  2)  stationary  firer  vs  moving  target, 
and  3)  moving  firer  vs  stationary  target.  For  each  of  these  sets,  it  reads  in  one  or  two  header  lines  and 
then  the  data  proper.  If  iecho  is  set  to  zero,  only  the  name  of  the  accuracy  file  is  echoed.  If  it  is  set  to  one, 
the  headers  for  each  set  of  data  is  echoed.  And  if  it  is  set  to  two  or  greater,  ail  the  data  is  echoed. 


CODE 

COMMENT 

dbname 

Name  of  data  file 

m 

Side  of  firer 

iecho 

Echo  control 

nrows 

#  of  rows  to  read 

ncois 

#  of  columns  of  data 

descr 

One  line  description  of  table 

nss(m) 

#  of  columns  of  stationary-stationary  data  for  mth  side 

q 

Description  of  row 

sstbl 

Stationary-stationary  table  (mils) 

nsm(m) 

#  of  columns  of  stationary  firer  -  moving  target  data 

smtbl 

Stationary-moving  data  table  (mils) 

nms(m) 

#  columns  in  moving  firer  -  stationary  target  table 

kindms(m) 

3  implies  MS  data  is  a  function  of  firer  speed. 

5  implies  MS  data  is  a  function  of  target  range. 

mstbl 

Moving-stationary  data  table  (mils) 

cV7.4 

SUBROUTINE  RDEROR  (dbname,  m,  iecho) 
c  3  Rd  eror:  read  accuracy  data  Tor  a  side, 
c  dbname  -  name  of  file  containing  error  (accuracy)  data, 
c  m  -  1  iff  for  Blue,  2  iff  for  Red. 
c  iecho  -  print  input  echo  iff  true, 
include  'common. h’ 
character*72  descr 
character*32  dbname 
characler*8  q 
real  mstbl 

common  /comss/  nss(2),  5stbl(I0,7,2) 
common  /comsm/  nsm(2),  smtbl(l0,17,2) 
common  /comms/  kindms(2),  nms(2),  mstbl(10,5,2) 
save  /comss/, /comsm/,  /comms/ 

1  format  (2i3,  a72) 

2  format  (laS,  lOfS.O) 

3  format  (’  ',la8,  10f8.2) 

c 

if  (trace)  print  *■,’>  rderor' 
open  (4,file«dbname,  status—'old') 
rewind  A 

c  Read  stationary-stationary  errors 

read  (4,1)  nrows,  ncois,  descr 
if(iecho.ge,l)  print  I,  nrows,  ncois,  descr 
nss(m)“ncoIs 
DO  10  nrow—1, nrows 

read  (4,2)q,  (sstbl(ncol,  nrow,  m),  ncol—l, ncois) 
if(iecho.ge.2)  print  3,  q,(sstbl(ncoi,nrow,m), 

1  ncol-1, ncois) 

10  CONTINUE 
c  Read  stationary-moving  errors 
read  (4,1)  nrows,  ncois,  descr 
if(iecho.ge.l)  print  1,  nrows,  ncois,  descr 
nsm(m)— ncois 
read  (4,1) 

DO  20  nrow— 1,  nrows 

read  (4, 2)q,(smtblincol, nrow, m),ncol-l, ncois) 


if(iecho.ge.2)  print  3,  q,(smtbl(ncol,nrow,m), 

1  ncol—1, ncois) 

20  CONTINUE 

c  Read  moving-stationary  errors 
read  (4,1)  nrows,  ncois,  descr 
if(iecho.ge.l)  print  1,  ncois,  nrows,  descr 
nm5(m)  —  ncois 
kindms(m)  —  nrows 
DO  30  nrow— 1, nrows 

read  (4,2)  q, (mstbl(ncol, nrow, m),ncol—l, ncois) 
if(iecho.ge.2)  print  3,  q,(mstbl(ncol,nrow,m), 

I  ncol—1, ncois) 

30  CONTINUE 

print  *,  '  Acc  file  is:',  dbname 
c)ost[A) 

if^ace)  print  *,'< rderor' 
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7.2  Accerr:  Find  the  Line&r  Error  for  a  Single  Round.  Accerr  finds  which  table  of  accuracy 
data  is  appropriate,  calls  the  associated  routine  to  generate  angular  errors,  and  converts  them  to  linear 
errors.  If  the  round  fired  is  a  ballistic  round,  accerr  checks  the  motion  of  the  firer  and  target  when  the 
round  was  fired  and  chooses  one  of  three  tables.  If  the  round  is  guided,  accerr  simply  uses  a  ‘stationary¬ 
stationary’  table. 


CODE 

MATH 

COMMENT 

m 

Firer’s  side 

r 

Range  to  target  (m) 

I 

Firer  ID 

theta 

Crossing  angle  (rad) 

vtgt 

Speed  of  target  (m/s) 

vfirer 

Speed  of  firer  (m/s) 

X 

X  =  .001  zr 

Linear  horizontal  error  (m) 

y 

y  =  .001  yr 

Linear  vertical  error  (m) 

rex 

=  .001  r^r 

Linear  horizontal  dispersion  (m) 

rey 

=  .001  r^r 

Linear  vertical  dispersion  (m) 

disp 

d  =  3.28V.5(r,Vr,*) 

RMS  dispersion  (ft) 

c  V7.4 

SUBROUTINE  ACC  ERR(m,r,I,th<ta,vtgt,vfirer,x,y,disp) 
c  1  Acc  err:  find  the  linear  error  for  a  single  round, 
include  'common. h’ 

logical  fmove,  fstat,  tmove,  Istat,  burst 
c 

if  (trace)  print  *,’>acc  err’ 
fmove—vfirer.gt.O.O 
fstat—. not. fmove 
tmove-vtgt.gt.0.0 
tstat—.  not.  tmove 
burst-nrpb(m).gt.l 

'  IF  (burst)  THEN 

c  Burst  fire  branch 

print*, 'ACC  ERR:  Burst  fire  not  modelled.’ 

STOP 

ELSEDP  (fmove.and. tmove)  THEN 
print  *,’ACC  ERR:  No  moving-moving  data.’ 

STOP 

ELSEIF  (kindr^m).le.2)  THEN 

c  Either  KE  or  HEAT  gun  system,  (kindrd— 1,2) 

if  (fstat. and. tstat)  call  accss  (m,r,I,x,y,rex,rey) 
if  (fstat. and. tmove)  call  accsm  (m,r,theta.x,y,rex,rey) 
if  (fmove. and. tstat)  call  accms  (m,r,vfirer,x,y,rex.rey) 
ELSE 

c  Direct  fire  or  top  attack  missile,  (kindrd— 4,6) 
call  acc  ss  (m,r,I,x,y) 

END  IF 

c  Convert  from  angular  to  linear  errors. 

X  —  x*r*.001 
y  -y*r*.001 
rex  «  rex*r*.001 
rey  •-  rey*r*.001 

disp  -  3.28*sqrt(0..6*(rex**2-hrey**2)) 
if  (trace)  print  •,'<acc  err' 

END 
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7.3  Accss:  Find  Angular  Accuracy  for  Stationary  Firer  vs  Stationary  Target.  Accss  finds 
the  angular  errors  when  a  stationary  firer  shoots  at  a  stationary  target. 

Table  6  shows  the  format  of  the  data  as  AMSAA  generates  it. 


Table  6.  First  Round  Accuracy 
Stationary  Firer  vs  Stationary  Target 


First  Round  Biases,  Dispersions,  and  First  Round  Probability  of  Hit 

Range 

(Meters) 

Fixed  Biases  (mils) 
Horizontal  Vertical 

Horizontal  (mils) 

Vertical  (mils) 

Random 

Error 

Variable 

Biases 

Total 

Dispersion 

Random 

Error 

Variable 

Biases 

Total 

Dispersion 

250 

■■ 

.5728 

1.4272 

1.3702 

.6284 

9927 

500 

.6940 

1.0043 

.7260 

.8572 

.9343 

1000 

BH 

.■1652 

1.1345 

1.2262 

.4652 

1.8468 

1.9015 

.3019 

1500 

.3920 

1.7860 

1.8287 

.3929 

3.4496 

3.4719 

.0580 

2000 

9 

.3621 

2.6669 

2.8914 

.3621 

6.2610 

6.2715 

.0126 

2500 

^9B~9 

.3459 

3.8757 

.3459 

11.1232 

11.1286 

.0032 

3000 

^^99 

.3362 

5.4729 

5.4832 

.3362 

19.1972 

19.2001 

.0009 

1^1 

‘"a 

‘'v 

The  user  must  re-arrange  the  data  in  the  above  table  into  the  format  shown  below. 


7  7  S-S  Errors  for  Blue  xxx 


rg(m)  -> 

250 

500 

1000 

1500 

2000 

2500 

3000 

1st  mux 

1.072 

.357 

.000 

-.119 

-.178 

-.214 

-.238 

muy 

0 

0 

0 

0 

0 

0 

0 

nux 

.5728 

.6940 

1.1345 

1.7860 

2.6669 

3.8062 

5.4729 

nuy 

.6284 

.8572 

1.8468 

3.4496 

6.2610 

11.1232 

19.1972 

h 1 1  sgx 

1.3702 

.7260 

.4652 

.3929 

.3621 

.3459 

.3362 

sgy 

1.3702 

.7260 

.4652 

.3929 

.3621 

.3459 

.3362 

Figure  5  shows  the  relationship  of  the  variables.  The  aim  point  is  at  the  origin  of  the  coordinate  sys¬ 
tem.  Each  of  the  solid  arrows  represents  the  fixed  parameters  of  a  distribution.  The  dashed  arrows 
represent  random  draws  from  those  distributions.  The  solid  arrow  from  the  origin  to  the  center  of  the 
large  ellipse  illustrates  the  fixed  bias.  Older  fire  controls  have  fixed  biases  due  to  factors  like  parallax. 
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The  large  ellipse  illustrates  the  one  sigma  limits  on  the  variable  bias.  The  variable  bias  changes  from 
occasion  to  occasion  due  to  factors  like  vehicle  cant  or  gunner  lay  error.  The  dashed  arrows  from  the 
center  of  the  large  ellipse  represent  random  draws  from  the  variable  bias  distribution. 

The  smaller  ellipses  represent  the  one  sigma  limits  on  the  dispersion  of  the  round.  The  dashed 
arrows  from  the  centers  of  the  smaller  ellipses  represent  draws  from  the  dispersion  distributions. 


CODE 

MATH 

COMMENT 

m 

Side  of  finer 

r 

Range  to  target  (m) 

I 

ID  of  finer. 

sstbl(n,k,m) 

^n,k,m 

Errors  for  nth  range,  kth  type,  and  mth  side  (mils). 

k 

k 

Interpolate  for  range  in  columns  k,  k-(-l 

frac 

F raction  of  distance  in  interval 

mux,  muy 

Horizontal,  vertical  fixed  bias  (mils) 

sgx,  sgy 

Horizontal,  vertical  dispersion  (mils) 

sx,  sy 

Random  draw  for  horizontal,  vertical  random  error  (mils) 

nux,  nuy 

Horizontal,  vertical  variable  bias  (mils) 

vx,  vy 

Random  draw  for  variable  bias  (mils) 

tx,  ty 

1  A  2 

Total  dispersion  (mils) 

ax,  ay 

a,  = 

Angular  error  (mils) 

The  array  sstbl(10,7,2)  stores  the  input  data.  The  diagram  below  illustrates  the  first  plane  for  a 

gun  system.  Since  missile  systems  have  no  variable  biases,  the  6th  and  7th  lines  become  the  4th  and  5th 
lines  in  the  table  for  missiles. 

n  k= 

1  r 

2  P, 

3  ,, 

4  r/, 

5  ^ 

6 
7 


The  following  pseudo  code  shows  how  the  various  errors  are  aggregated  to  produce  the  random  angu¬ 
lar  error  and  the  total  error.  It  shows  the  calculation  of  the  x  values;  y  values  are  found  similarly.  Primed 
values  are  values  that  will  not  change  from  shot  to  shot  and  are  saved  for  subsequent  rounds  fired  at  the 
same  target  until  it  is  disengaged  (either  temporarily  or  permanently.) 
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IF  (missile)  THEN  Find  missile  errors 
k= 

frae  = 

f(k,2)+f(k,4)N 
t,  =  ^{f{k,2f+f(k,4f) 

ELSE  Find  gun  errors 
IF  (first  round)  THEN  Save  values 
k= 

frae= 

/i.'  =  /(it, 2) 

V,'  =  f(k,4)N 

tj  =  ^{f{k,4)\f(kfif) 

ENDIF 

a,  =  ^lJ■>rvJ+aJN 

=  tJ 

ENDIF 


Before  the  first  executable  statement  is  a  statement  function  which  does  a  linear  interpolation 
between  the  ith  and  it+lst  columns  of  row  n  in  plane  m  of  the  data  table. 

Note  that  for  missiles  or  guns,  the  bias  is  stored  in  the  2nd  row  of  the  table.  For  guns,  the  variable 
bias  is  stored  in  the  4th  row  and  the  random  error  is  stored  in  the  6th  row.  For  missiles,  there  is  no  vari¬ 
able  bias,  so  the  random  error  is  stored  in  the  4th  row. 


ir(m.eq.2)frac  -  (r-rrgs(k))  /  (rrgs(k+l>rrgs(k)) 
Interpolate  to  find  angular  errors. 
smux(l)  -  r(k,2) 
smuy(I)  -  f(k,3) 
svx(l)  rann(f(k,4)) 

8Yy(I)  —  rann(f(k,5)) 

ssgx  11  -  r(k,6 
ssgyll)  -  r(k,7) 
stx(I)  -  rss(f(K,4),r(k,6)) 
styfl)  -  rss(f(k,5),r(k,7)) 

ENDIF 

Now  find  angular  errors, 
tx  •  stx(Il 
ty  -  sty(I) 

ax  ->  smux(I)  +  svx(l)  +  rann(ssgx(I)) 
av  —  smuy(l)  +  svy(l)  +  rannlssgyjl)) 

ENDIF 

if  (trace)  print  *,’<accss’ 

END 

irim.eq.l  IK— indexxi  nrgs.nssjml.r  1 
ir(n).eq.2)k-indexx(rrgs,nss(m),r) 

ir(k.lt.l)  k-1 

c  Find  interpolation  constant. 

iflm.eq.llfrac  -  (r-brgs(k))  /  (brgsIk  +  lVtrgsIkl) 
ir(m.eq.2)rrac  -  (r-rrgs(^k))  /  (rrgs(k+l)-rrgs(k)) 
c  Interpolate  to  find  angular  errors. 

tx  -  r(k,4) 
ty  -  f(k.5 

ax  -  f(k,2)  +  rann(tx) 
ay  -  nk,3)  +  rann(ty ) 

ELSE 

c  Find  errors  for  a  gun  system. 

IF(prevrd(I).eq.I)THEN 
c  Save  first  round  values, 

c  Find  index  for  interpolation. 

iffm.eq.llk— indexx(brgs,nss(m),r) 
if(m.eq.2)k— indexx(rrgs,nss(m).r) 
if  (k.lt.l)  k-1 

c  Find  interpolation  constant. 

if(m.eq.l)frac  -  (r-brgs(k))  /  (brgs(k+l)-l>rgs(k)) 


c  V7.4 

SUBROUTINE  ACC  SS(m,r,I,ax,ay.tx.ty)  c 

c  0  Acc  ss:  find  Angular  accuracy  for  stationary-stationary  single  shots, 
include  'common. h’ 
real  rrgs(lO),  brgs(lO) 
common  /comss/  nss(2j,  sstbl(  10,7,2) 
equivalence  (sstblf  1 , 1,1), brgs( III 
equivalence  (sstbl(l,l,2),rrgs(l)) 

save  /comss/,  smux,  smuy,  svx,  svy,  ssgx,  ssgy,  stx,  sty 

real  smux(NN),smuy(NN),ssgx(NN),ssgy(NN),svx(NN),svy(NN), 

1  stx(NN),sty(NN),  mux,  muy,  nux,  nuy 

f(k,n)  —  sstbl  k,n,m)  -f  c 

1  frac*(sstbl(k-H,n,m)-sstbl(k,n,m)) 
rss(x,y)  —  sqrt(x*x-by*y) 

if  (trace)  print  *,’>accss’ 

IF  (kindrd(m).eq.4)  THEN 
c  Find  errors  for  a  missile  system, 
c  Find  index  for  interpolation. 
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7.4  Accsm:  Find  Angular  Accuracy  for  Stationary  Firer  vs  Moving  Target.  Accsm  inter¬ 
polates  in  the  stationary-firer  moving-target  accuracy  to  select  the  errors  for  each  shot.  For  each  side, 
these  errors  are  a  function  of  the  range  and  crossing  angle. 

Table  7  shows  the  format  of  the  data  AMSAA  generates. 


Table  7.  Stationary-Firer  vs  Moviog-Target  Accuracy 


Stationary  Firer  vs.  Moving  Target 
Evasive  Factor  —  .2S 

Target  Crossing  Direction  —  counterclockwise 
Target  Crossing  Angle  —  0  degrees 
Bias  and  Dispersion  in  mils 


ACCURACY  DATA  AS  A  FUNCTION  OF  RANGE  (METERS) 


2S0 

500 

1000 

1500 

2000 

2500 

3000 

1.0S47 

.3194 

-.0903 

-.2843 

-.4510 

-.6415 

-.8751 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.6466 

.7581 

1.1735 

1.8110 

2.6837 

3.8718 

5.4811 

.6904 

.9107 

1.8725 

3.4636 

6.2689 

11.1277 

19.1999 

1.000 

.9853 

.2156 

.0581 

.0125 

.0032 

.0009 

.7800 

-.2740 

-1.4549 

-2.5467 

-3.5063 

-3.8250 

-3.2910 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.6472 

.7568 

1.1739 

1.8114 

2.6840 

3.8721 

5.4983 

.7893 

.9702 

1.9082 

3.4875 

6.2855 

11.1399 

19.2091 

1.000 

.9801 

.1784 

.0231 

.0055 

.0020 

.0008 

.7794 

-.2785 

-1.5177 

-2.8526 

-4.5495 

-6.6631 

-8.8527 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.6468 

.7583 

.1.1752 

1.8124 

2.6849 

3.8729 

5.4821 

.9552 

1.1361 

2.0154 

3.5609 

6.3371 

11.1775 

19.2378 

1.000 

.9560 

.1617 

.0178 

.0031 

.0007 

.0002 

.7793 

-.2806 

-1.5296 

-2.9125 

-4.7684 

-7.3413 

-10.6929 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.6521 

.7611 

1.1774 

1.8142 

2.6864 

3.8742 

5.4833 

1.2028 

1.3685 

2.1824 

3.6799 

6.4129 

11.2398 

19.2852 

.9999 

.9076 

.1491 

.0164 

.0026 

.0005 

.0001 

.7792 

-.2809 

-1.5338 

-2.9337 

-4.8470 

-7.5917 

-11.4060 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.0000 

.7573 

.7650 

1.1805 

1.8163 

2.6885 

3.8761 

5.4801 

1.4814 

1  6393 

2.3965 

3.8400 

6.5387 

11.3262 

19.3512 

.9983 

1411 

.1365 

.0156 

.0025 

.0005 

.0001 

H  -  HORIZONTAL 
V  -  VERTICAL 

P(H)  -  Probability  of  hit  against  a  2.3tii 


X  2.3m  vertical  moving  target 


Tables  similar  to  the  one  above  are  produced  for  crossing  angles  of  0,  30,  60,  and  90  degrees.  The 
user  must  extract  data  from  these  tables  for  the  combat  cruise  speed  he  wants.  He  then  puts  it  in  the 
accuracy  data  file.  Table  8  shows  the  format  of  the  stationary-moving  data  included  in  the  accuracy  data 
file. 


First,  accsm  finds  the  column  k  in  the  data  so  that  it  can  linearly  interpolate  between  columns  k 
and  k+l.  Then  it  finds  frac.  the  fraction  of  the  distance  into  the  range  interval.  This  value  will  be  used  to 
linearly  interpolate.  Next  it  finds  the  sub-table  for  the  appropriate  crossing  angle. 

The  crossing  angle  — tr  <  ^  <  jr  is  an  input  to  accsm.  Since  data  is  only  available  for  crossing 
angles  between  0  and  90  degrees  and  there  is  a  certain  amount  of  symmetry,  accsm  converts  6  into  a  as 
follows; 

e' =  r/2-\,r/2-\e\\ 

The  result  is  — jr/2  <  O'  <  )r/2.  Then  accsm  finds  the  appropriate  rows  i,  i+l  bounding  O'.  After  interpo¬ 
lating  for  range,  accsm  interpolates  for  crossing  angle. 
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Table  8.  Stationary  Firer  vs  Moving  Target 


(KPH) 

250 

0  deg 

HBIAS 

.7800 

VBIAS 

.0000 

HDISP 

.6472 

VDISP 

.7693 

30  deg 

HBIAS 

VBIAS 

HDISP 

VDISP 

60  deg 

HBIAS 

VBIAS 

HDISP 

VDISP 

90  deg 

HBIAS 

VBUS 

HDISP 

VDISP 

500 

1000 

1500 

-.2740 

-1.4549 

-2.5467 

.0000 

.0000 

.0000 

.7566 

1.1739 

1.8114 

.9702 

1.9082 

3.4875 

2000  2500  3000 

-3.5063  -3.8250  -3.2910 

.0000  .0000  .0000 

2.6840  3.8721  5.4983 

6.2855  11.1399  19.2091 


CODE 

MATH 

COMMENT 

m 

Side  of  firer.  Identifies  plane  of  data  array  to  use. 

r 

Range  from  firer  to  target  (m). 

theta 

Crossing  angle  (rad). 

k 

k,  k-Fl  are  columns  between  which  to  interpolate. 

frac 

Fraction  of  distance  into  range  interval. 

i 

Index  selecting  rows  in  table. 

mux,  muy 

Horizontal,  vertical  biases  (mils). 

ax,  ay 

Horizontal  and  vertical  angular  errors  (mils). 

tx,  ty 

Horizontal  and  vertical  total  errors  (mils). 

c  V7.3 

SUBROUTINE  ACC  SM(m,r,theta,ax,ay,tx,ty) 
c  1  Acc  sm:  find  angular  error  for  stationary-firer  moving-tgt. 
c  m  -  1  iff  Blue  firer,  2  iff  Red  firer. 
c  r  -  range  from  firer  to  target  (m). 
c  theta  -  crossing  angle  (deg).  ?? 
c  ax,  ay  -  angular  error  of  round  (mils), 
include. 'common. h' 
real  brgs(lO),  rrgs(lO) 

real  interp,  mux,  muxl,  mux2,  muy,  muyl,  muy2 
common  /comsm/  nsm(2),  smtbl(10,17,2) 
save  /comsm/ 

equivalence  (smtblfl,l,ll,brgsn)) 
equivalence  (smtbl(l,l,2),rrgs(l)) 
interp(ri,f2)  —  fl  -*•  frac*(f2-fl) 
c 

if  (trace)  print  •,'>acc  sm' 
c  Find  right  range  column 

if  (m.eq.l)  k— indexx(brgs,nsm(m),r) 
if  (m.eq.2)  k— indexx(rrgs.nsm(m),r) 
if  (k.It.l)  k>l 

if  (m.eq.l)  frac  -  (r-brgsfkl)  /  /brgsfk+J)-brgs(kl) 

if  (m.eq.2)  frac  -  (r-rrgs(k))  /  (rrgs(k-H)-rrgs(k)) 

c  Find  errors 

i  «■  0 

IF  (meth  sm.eq.l)  THEN 
temp  —  abs(theta/PI) 
temp  (temp-aint(temp))*PI 
temp  —  0.5*PI  -  abs(0.5*PI-temp) 
i  ••  4*int(temp*deg/30.) 

EN0IF 

muxl  —  interpfsmtbl(k,i-l2,m),  smtbl((k-H  l,i-f  2.m)l 
muyl  -  interp(sm’-bl(k,i-f3,m),  smtbl((k-H),i-r3,m)) 
txl  —  interp(smtbl(k,i-f4,m),  smtbiffk+l  l,i-b4.m)l 
tyl  interp(smtb!(k^,i'+5,m),  smtbl((k-fl),i+5,m)) 

IF  (methsm.eq.lj  THEN 

mux2  interp(smtbl(k,i-f6,m),  smtbl((k-H),i-f6,m|) 
muy2  «  interp(smtbl(k,i-e7,m),  smtbl|(k-H),i-*-7,m)) 
tx2  -  interp(smtbl(k,i-b8,ml.  smtbl((k-H).i-f8,mjl 
ty2  -  interp(smtbl(k,i-b9,m),  smtbl((k-hl),i-f9,m)) 
frac  —  temp*6./Pl 
mux  —  interp(muxl,mux2) 


muy  —  interp(muyl,muy2) 
tx  •  interp[tx],tx2) 
ty  —  interp(ty  l,ty2) 

ELSE 

mux  ■»  muxl 
muy  —  muyl 
tx  —  txl 
ty  -  tyl 
ENDIF 

ax  ■»  mux  +  rannitx) 
ay  —  muy  +  rann(ly ) 
if  (trace)  print  •,’<acc  sm’ 
END 
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7.6  Accms:  Find  Angular  Accuracy  for  Moving  Firer  vs  Stationary  Target.  Acc  ms  inter¬ 
polates  in  the  MS  table  to  find  the  additional  errors  due  to  motion  of  the  firer.  It  combines  these  errors 
with  those  for  a  stationary  firer  against  a  stationary  target  to  generate  the  total  errors  for  the  moving  firer 
firing  at  a  stationary  target. 

Input/Output.  Table  9  illustrates  the  data  produced  by  AMSAA  for  moving  firer  add-on  errors. 
It  contains  horizontal  and  vertical  data  for  six  types  of  terrain: 

I  -  Level  farmland  meadows 

II  -  Field  with  overpass  road 

III  -  Frozen  plowed  fields  with  crossings 
rV  -  Rolling  meadows 

V  -  Stony  farmland  with  crossings 

VI  -  Heavily  used  tank  road 

Usually,  Tank  Wars  runs  use  type  4  terrain.  The  user  converts  velocity  to  meters  per  second  and  refor¬ 
mats  the  data  as  shown  in  figure  7.5b. 

Table  9.  Add-on  Dispersions  for  Moving  Firers 


Table  10.  Moving  Stationary  Input  Data  (as  a  function  of  velocity) 
3  7  M-S  Errors  for  Blue  9999 


vel(m/s) 

1.11  2 

.22  3 

.33 

4.44 

5.55 

6.66 

7.77 

Adx 

.40 

.40 

.40 

.43 

.91 

1.45 

10.9 

Ady 

.40 

.40 

.40 

.66 

1.14 

1.80 

13.7 

Table  11.  Moving  Stationary 

Input  Data  (as  a 

function  of  range) 

5 

8  M-S 

Errors 

for  Blue 

9999 

rg(m) 

-> 

500. 

1000. 

1500. 

2000. 

2500. 

3000. 

3500. 

4000. 

FxBh 

.1000 

.1000 

.1000 

.1000 

.1000 

.1000 

.  1000 

.  1000 

V 

.  0000 

.0000 

.0000 

.  0000 

.0000 

.0000 

.0000 

.0000 

Te  h 

.8000 

.8000 

.8000 

.8000 

.8000 

.  8000 

.  8000 

.  8000 

V 

.8000 

.  8000 

.  8000 

.8000 

.  8000 

.  8000 

.  8000 

.  8000 

MS  error  as  a  function  of  velocity.  In  this  case,  the  routine  finds  the  errors  for  the  SS  case  and 
the  add-on  errors  for  the  MS  case  and  root  sum  squares  them.  See  section  7.1  for  a  discussion  of  the  SS 
data.  Acc  ms  performs  linear  interpolation  to  find  the  horizontal  and  vertical  add-on  dispersions  for  the 
appropriate  firer  speed.  For  example,  at  5  m/s,  the  calculations  are; 

5-4.44 

frac  =  =  0.504 

5.55—4.44 

Adx  =  interp(.43,.91)  =  .4.3-1-. .504(.91-.43)  =  .672 


This  add  on  error  is  combined  with  the  SS  error  to  give  the  dispersion  (rex),  and  a  randomly  drawn  angu¬ 
lar  error  as  shown  below. 
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MATH 
m 
r 

V 

ax, ay 

rex.rey  r,,  r, 
mstbl 

kindms 


brgs 

k 

frac  /  =  (r-rJ/(rt+,-rJ 

mux  /<,  =  ^.2,m+/(^+1.2,m-<*.2.m 

rex  =  ^(v^+tr^+Adz^) 

N 

ax  a,  =  A<,+r,iV 


_ COMMENT _ 

Side  of  firer  (l=Blue,  2=Red). 

Range  from  firer  to  target  (m). 

Speed  of  firer  at  fire  time  (m/s). 

Angular  error  of  round  (mils). 

Dispersion  of  round  (mils). 

MS  data  table  (mils). 

Number  of  lines  of  MS  data. 

3  if  data  is  a  function  of  velocity 
5  if  data  is  a  function  of  range 
Blue  ranges  in  data  table  (m). 

Index  such  that  <  r  <  . 

Fraction  of  distance  into  interval. 

)  Horizontal  bias  (mils). 

Random  error  horizontally  (mils). 

Random  draw  from  the  standard  normal  distribution. 
Horizontal  error  of  round  (mils). 


MS  error  as  a  function  of  range.  When  the  input  data  is  in  this  format,  there  is  no  need  to 
access  the  SS  data.  Again  the  routine  performs  linear  interpolation.  In  this  case,  it  directly  finds  rtx 
and  a,,  as  well  as  the  corresponding  y-values. 


c  V7.t 

SUBROUTINE  ACC  MS(m,r,v,a.x,ay,rex,rey) 
c  3  Aco  ms;  find  angular  error  tor  moving-Srer  stationary-tgt. 
include  'common. h' 
common  /comss/  nss(2),  sstbl(  10,7,2) 
common  /comms/  kinams(2),  nms(2),  mstbl(10,5,2) 
save  /comss/,  /comms/ 

real  bprm(lO),  rprm(lO),  brgs(lO),  rrgs(lO),  mstbl 
real  inlerp,  mux,  muy,  nux,  nuy 
equivalence  (sstbl(l,l,l).brgs(l)) 
equivalence  (sstbl(l,l,2),rrgs(l)) 
equivalence  (mstbl(i,i,ll,bprm(l)) 
equivalence  (mstbl(l,l,2),rprm(l)) 
interp(fl,r2)  -  fl  +  rrac*(f2-ri) 

if  (trace)  print  *,’>acc  ms' 

IF  (kindms(m).eq.3)  THEN 
c  MS  data  is  a  function  of  velocity, 
c  Find  SS  errors. 

ir(m.eq.l)k—indexxfbrgs,nss(m),r) 
if(m.eq.2)k=indexx(rrgs,nss(m),r) 
if  (k.lt.l)  k-1 

if(m.eq.l)frac  —  (r-brgs(k))  /  (brgs(k+l)-brg5(k)) 
if(m.eq.2)frac  -  (r-rrgs(k))  /  (rrgs(k+l)-rrgs(k)) 
mux  —  interp(sstbl(k,2,m),  sstbl(k+l,2.m)) 
muy  —  interp(sslbl(k,3,m),  sstbl(k+1.3.m)) 
nux  ••  interp(sstbl(k,4,m|,  sstbl(k+l,4.m)| 
nuy  —  interp(sstbl(k,5,m),  sstbl(k+l,5,m)) 
sgx  —  interp(sslbl(k.6,m),  sstfal(k+l,6,m)) 
sgy  —  interp(sstbl(k,7,m),  sstbl(k+l,7,m)) 
c  Find  MS  add-ons. 

if  fm.eq.ll  k— indexxlbprm,nms(m),v) 
if  (m.eq.2)  k*-index.x(rprm,nms(m),v) 
if  k.lt.l)  k-1 

if  Im.eq.l)  frac  —  (v-bprm(k))  /  (bprm(k-^l)-bprm(k)) 
if  (m.eq.2)  frac  —  Iv-rprm(k))  /  (rprm(k-t-l)-rprm(k)j 
Adx—  inlerp(mslbl(k,2,m),mslbl(k-)-l,2,m)j 
Ady—  interp(mstbl(k,3.m),mstbl(k-^1.3,m)) 
c  Combine  SS  data  and  MS  add-ons. 

rex  -  sqrt(nux**2  +  sgx**2  -t-  .\dx**2) 
rey  -  sqrlfnuy**2  +  sgy**2  +  .\dy**2) 
ax  ”  mux  +  rann(rex) 
ay  -  muy  +  rann(rey) 


ELSEIF  (kindms(m).eq.5)  THEN 
c  MS  data  is  a  function  of  range. 

if  m.eq.ll  k— indexxjbprm,nms(m),r) 
if  (m.eq.2)  k»»indexx(rprm,nms(m),r) 
if  k.lt.l)  k-1 

if  Im.eq.l)  frac  -  (r-bprm(k))  /  (bprm(k-H)-bprm(k)) 
if  (m.eq.2)  frac  -  (r-rprm(k))  /  (rprm()t-t-l)-rprm(k)) 
mux  —  inlerp(mstbllk,2,m),mstbl(k-l-l,2,m)) 
muy  —  interp(mstbl(k,3,m),mstbl(k-H,3,m)) 
rex—  inter  pi  mstbl|k.4,m),mstbl(k-+- 1.4,  m)) 
rey  —  inlerp)  mstbl(k.  5,  mi,mstbl(k-l-1.5,m)) 
ax  =  mux  +  rann(rex) 
ay  —  muy  +  rann(rev) 

ELSE 

print*, '.\CC  MS;  There  is  no  ms  error  Ivpe',  kindms(m) 
STOP 
END  IF 

if  (trace)  print  *.'<acc  ms' 

END 
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8.  DAMAGE  ROUTINES 


The  Damage  Routines:  Damage,  Damagf,  Damagm,  and  LateKL,  find  the  degree  of  damage 
done  to  the  target  by  incoming  rounds  and  schedule  appropriate  events.  The  target’s  damage  may  be 
categorized  into  these  types:  M-Killed,  F-Kiiied,  M&F-Killed,  I-Killed,  and  K-Killed.  The  effects  on  the 
target’s  foes  include:  discard  target  and  switch  to  another.  Deaths  is  one  of  the  five  damage  routines.  It 
tallies  the  tanks  that  are  known  to  be  dead  on  each  side. 

The  diagram  below  shows  the  relationship  of  the  routines  called  by  damage.  The  routines  in  dashed 
boxes  find  the  level  of  damage.  They  will  be  discussed  in  the  following  section.  The  routines  shown  iin 
solid  boxes  deal  with  the  results  of  damage  at  various  levels.  They  are  discussed  in  this  section. 


I - 1 


I  kills  I 

I  I 

I  I 

I _ I 
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8.1  Damage:  Simulate  Damage  to  the  Target.  Damage  finds  the  amount  of  damage  caused  by 
the  current  round,  finds  the  cumulative  damage,  and  schedules  effects  of  any  new  damage.  It  finds  the 
aspect  angle  and  dispersion  of  the  lound,  and  then  calls  the  appropriate  kill  routine  to  find  the  type  of 
damage  caused.  It  then  scores  new  damage,  if  any.  Finally,  it  schedules  the  effects  of  any  new  M,  F, 
M&F,  or  K  kills.  These  may  include  abort  missile,  cease  movement,  cease  fire,  and  seek  cover.  The  effects 
on  the  target’s  foes  include:  discard  target  and  switch  to  another  target. 

First,  damage  finds  a  few  useful  variable.s;  n,  m,  and  k.  Then  it  determines  nang,  the  index  of  the 
30  degree  sector  in  which  the  incoming  round  strikes  the  target.  These  30  degree  bands  are  shown  in  figure 
6  belo\/.  Then  it  finds  disp,  the  one  foot  dispersion  band  associated  with  the  dispersion  of  thj  round. 


Front 


I  » 

8  '  >6 
'  7  ' 

Figure  6  Attack  Angle  Bands  ,\round  the  Target 


CODE 

M\TH 

COMMENT 

t 

Time  (sec). 

I 

ID  of  firer. 

it 

ID  of  target. 

n 

1  if  firer  is  Blue,  2  if  Red 

m 

1  if  target  is  Blue,  2  if  Red 

k 

1  for  KE,  2  for  HEAT,  4  for  missile.  5  for  ST.AFF 

theta 

e 

.Aspect  angle  of  incoming  round  (rad)  (— tr<0<-) 

theta2 

6^  =  180tf/jr 

1  Aspect  angle  of  incoming  round  (deg)  (— 18O<0o<18O) 

nangls(n) 

K 

Num'rer  of  angles  tabled  for  side  n. 

=  7 

True  F  F  symmetrical  target. 

nang 

N=  1 02/30+ 1.5 

1  -  12  for  30  degree  bands  from  head-on  to  tail-on 

rex,  rev 

■r.  y 

Horizontal,  vertical  dispersion  of  rounds  (m) 

disp 

3.28  V  i^+yVs! 

Root  mean  square  of  dispersions  (ft) 

ndisp 

Dispersion  bands  (1-10  ft) 

k 

Kind  of  round  (1=KE,  2=HL.-\T,  4=missile,  5=top  attack). 

life(it) 

Status  of  target  (1=,ALIVE,  2=MKILL.  3=FKILL, 
4=.Vl&FKn.L,  5=IKILL.  6=KKILL). 

injury 

Damage  caused  by  latest  round. 

injold 

Damage  incurred  before  latest  round  hit. 

After  damage  finds  the  damage  caused  by  the  new  round,  it  finds  the  cumulative  damage  ;us  .shown  in 
table  12.  Then  damage  calls  damagm  to  schedule  mobility  damage  effects,  and  damagf  to  schedule 
firepower  damage  effects.  For  catastrophic  kills,  it  calls  newtgt  to  .switch  the  target's  foes  to  new  targets, 
and  calls  deaths  to  count  up  the  score  and  see  if  we  have  a  winner.  For  an  M.VF'  kill,  it  schedules  an 
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inac  avity  kill  a  short  time  in  the  future,  which  simulates  foes  recognizing  that  an  inactive  target  is  no 
longer  a  threat. 

Table  12.  Cumulative  Damage 


Previous 

Damaire 

Dama 

ge  Caused  by  Current  Round 

none 

M 

F 

M&F 

K 

none 

. 

M 

F 

M&F 

K 

M 

- 

- 

M&F 

M&F 

K 

F 

- 

M&F 

- 

M&F 

K 

M&F 

- 

- 

- 

K 

I 

- 

- 

- 

- 

K 

K 

- 

- 

- 

- 

indicates  no  change 


c  V7.5 

SUBROUTINE  DAMAGE  (t,  I,  it) 

C  0  Damage:  find  if  it  is  hit  &  schedule  effects, 
include  'common. h' 
character*2  kt(8) 

common  /cpkh2/  nangts(2),  pkh(2,7,12,2,4,ll) 

common  /cimpct/  x,y .theta,  disp 

save  /cimpct/,  /cpkh2/ 

data  kt  rno’,’M-','F-’,'MF',T-',’K-’/ 

1  format(l8.2,lx,a4,i3,lx,'Hits  '  ,a4,i3,' (no  damage).’) 

2  format(f8.2, lx, a4,i3,lx,a2, '-kills  ',a4,i3) 
c 

if  (trace)  print  *,'>  damage’ 
n-army(I) 
m  —  3-n 
k  —  kindrd(n) 

.  theta2  —  theta'DEG 
if  (nangls(n).eq.7)  theta2— abs(theta2) 
if  (theta2.lt.- 15.0)  theta2—theta2-f 360.0 
nang  >•  int(theta2/30.0-H.5) 
if  (nang.lt.l)  nang»l 
if  (nang. gt. 12)  nang— 12 
disp  —  3,28*sqrt(0.5*(rex**2-t-rey**2)) 
ndisp  —  max0(l.min0(10,int(0.54-disp))) 
c  Find  kill  type  (if  any)  and  branch  accordingly 
if  (k.ne.5)  injury  —  kill(I,  it,  y,  ndisp,  nang) 
if  (k.eq.5)  injury  —  kill5(I,  x,  y,  nang) 

IF(histry)  THEN 

if  (injury. eq.l)  print  l,t,color(nU,color(m),it 
if  (injury .gt.l)  print  2,t,color(n),I.kt(injury  ),color(m),it 
END  IF 

injold  —  life(it) 

IF  (injury. eq.KKILL  .and.  injury  ne.injold)  THEN 
c  Treat  first  catastrophic  kill. 
life(it)  -  KKILL 
call  damagf(t.it,m) 
call  damagm(t,it) 
call  cancel(il,’ikill  ’.NULL) 
call  newtgt  (t,I,it) 
call  deaths) t) 

ELSEIF  (injury. ne.injold  .and.  injold. It, MFKILL)  THEN 
c  Treat  new  damage  (less  than  catastrophic). 

IF  (injury .eq.MKILL)  THEN 
if  (injold. eq.FKILL)  life(il)  -  MFKILL 
if  (injold. eq.ALIVE)  life(il)  -  MKILL 
if  (injold. eq.ALIVE  .or.  injold. eq.FKILL)  call  damagm  (t.it) 
ELSE  IF  (injury. eq.FKILL)  THEN 
if  (injold. eq.ALIVE)  life(it)— FKILL 
if  (injold.eq.. MKILL)  life(it)-MFKILL 
call  damagf(t,it,m) 

ELSE  IF  (injury. eq.MFKnX)  THEN 
if  (injold. It. MFKILL)  life(il|  -  MFKILL 
if  (injold. ne., MKILL)  call  damagm  (t,  it) 
if  (injold. ne. FKILL)  call  damagf  (l.it.m) 


END  IF 

if  (life(it).eq.  MFKILL.  and.  injold.  It.  MFKILL) 
call  skedul(t-l-tbump(n),it.'ikill  '.NTJLL) 
END  IF 

if  (trace)  print  *.'  <  damage' 

END 
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8.2  DamagF:  Simulate  Firepower  Damage.  Damagf  cancels  all  firepower  activities.  It  aborts 
any  missiles  fired  by  the  target  and  cancels  fire,  reload,  and  select  events  scheduled  for  the  target.  If  the 
target  is  still  mobile,  it  seeks  cover.  If  the  target  is  only  F-Killed  and  its  top  speed  is  greater  than  zero, 
damagf  schedules  an  immediate  accel  event  and  a  hide  event  a  short  time  in  the  future. 

The  damaged  tank  can  no  longer  fire.  Its  target  is  set  to  zero  so  the  death  of  its  target  won’t  trigger 
switching  to  a  new  target.  Then  any  missiles  it  may  have  been  guiding  are  aborted  and  the  record  of  it 
being  in  the  process  of  firing  on  any  target  is  cleared  (fot(it,j)  =  .false.).  Finally,  any  firepower  related 
events  are  canceled. 

If  the  target  is  only  F-killed  and  its  top  speed  is  greater  than  zero,  damagf  cancels  all  pending 
motion  events  and  has  it  seek  cover.  To  do  this,  damagf  schedules  an  immediate  accel  event  followed  by 
a  hide  event.  If  it  is  in  a  defensive  position,  it  hides  in  5  seconds.  Otherwise  it  hides  after  a  delay  deter¬ 
mined  by  input  values. 


CODE 

COMMENT 

t 

Time  (sec) 

it 

ID  of  target 

n 

1  if  target  is  Blue,  2  if  Red. 

nrtgt(it) 

ID  of  target’s  target. 

nchan(it) 

Number  of  guidance  channels  target  has  active. 

kindrd(n) 

Kind  of  round  fired  by  firer. 

fot(it,j) 

Record  that  ‘it’  is  firing  at  foe  j. 

life(it) 

Status  of  ‘it’. 

speed(n) 

Combat  cruise  speed  of  target  (m/s). 

dt 

Time  required  for  side  n  to  hide. 

c  V7,l 

SUBROUTINE  DAMAGF  (l.it.n) 
c  Damagf  -  Discard  activities  due  to  firepower  kill, 
include  'common. h' 

nrtgt  fit!  -  0 
nchan(it)  —  0 

c  Clear  any  guidance  channels  in  use  by  target, 
if  (kindrd(n).eq.4)  call  abort(t,it,0) 

DO  40  j— l,nblu+nred 
fot(it,j)  —  .false. 

40  CONTINUE 

call  cancelfit.’fire  ’.NULL) 
call  canceliit, 'reload', NULL) 
call  cancelfit, 'select', NULL) 

IF  (life(it).eq.FKILL  .and,  speed(n).gt. 0,0)  THEN 
call  cancel  (it.'slowup'.NULL) 
call  cancel  (it, 'halt  '.NULL) 
call  cancel  (it. 'accel  '.NULL) 
call  skedul  (t,  it,  'accel  '.NULL) 
dt  —  thide(n) 

if  (n.eq.BLU  .and.  scene.eq.R.\TT.AK)  dt  ■>  5.0 
if  (n.eq.RED  and.  scene. eq.BATTAK)  dt  —  5.0 
call  skedul  (t+dt,it,'hide  '.NULL) 

END  IF 
EN'D 
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8.3  DamagM:  Simulate  Mobility  Damage.  Damagm  discards  all  activities  due  to  mobility  kill 
including  maxvel,  accel,  hide,  and  vanish.  If  the  target  M-Killed  is  not  stopped  or  slowing,  damagm 
schedules  an  immediate  slowup. 


CODE 

MATH 

COMMENT 

t 

Time  (sec). 

it 

ID  of  target. 

vxO 

V 

Current  speed  of  target 

motion 

m 

1  =  slowing,  2  =  stopped,  3  =  accelerating. 

4  =  cruising 

SLOWNG 

s 

1 

V .,  =  0 

Implies  it  is  stopped 

=  * 

Implies  it  is  slowing  down 

c  V7,-l 

SUBROUTINE  DAMAGM  (t,  it) 
c  9  Damagm  -  Simulate  mobility  kill  on  the  tgt. 
include  'common. h’ 


c 


logical  SOS 

SOS  -  stopped  or  slowing 
if  (trace)  print  •,'>damagm’ 
call  cancel  fit,  'maxvel',  SfULL) 
call  cancel  (it,  'accel  ',  NULL) 
call  cancel  lit,  'hide  ',  NULL) 
call  cancel  (it,  'vanish',  NULL) 

SOS  —  vx0(it).eq.0.0  .or.  motion(it).eq.SLOWNG 
if  f.not.sos)  call  skedul  (t,  it,  'slowup',  NULL) 
if  (trace)  print  *,'<  damagm' 

END 


8.4  Deaths:  Tally  Deaths.  Deaths  tallies  the  tanks  that  are  known  to  be  dead  on  each  side.  A 
tank  is  known  to  be  dead  if  it  is  I-Killed,  K-killed,  or  F-Killed  and  hidden.  When  the  number  of  tanks  on 
one  side  equals  the  number  of  dead  tanks  on  that  side,  the  engagement  is  considered  finished  and  the 
opposing  army  wins  the  engagement  if  it  can  still  shoot. 


CODE 

COMMENT 

t 

Time  (sec). 

dead(n) 

Count  of  dead  on  side  n. 

life(i) 

Status  of  tank  i. 

knceai(i) 

Concealment  of  tank  i.  1=FD,  2=HD,  3=FE. 

deadl 

True  IFF  tank  is  known  to  be  dead. 

dead2 

True  IFF  tanks  is  concealed  and  Fkilled  (or  worse). 

If  all  the  Blue  tanks  are  dead  or  all  the  Red  tanks  are  dead,  the  code  schedules  a  finish  event.  For 
this  purpose,  a  tank  is  considered  dead  if  it  is  in  view  but  I-killed  or  K-killed,  or  if  it  has  been  F-killed  and 
has  hidden. 


c  V7.2 

SUBROUTINE  DEATHS  (t) 

c  0  Deaths:  Find  death  toll  on  each  side.  A  tank  is  considered 
c  dead  if  it  is  I-killed,  K-killed,  or  F-killed  &  hidden, 
include  'common. h’ 
logical  deadl,  dead2 
integer  dead(2) 

1  format  (i3,’  Blu  dead,',i3,'  Red  dead.’) 

c 

if  (trace)  print  •,’>deaths' 
dead(BLU)  -  0 
dead(RED)  -  0 
DO  20  i"l,nblu-hnred 
deadl  —  life(i).ge.IKILL 
dead2  «  knceal(i).eq.FD  .and.  life(i).ge.FKILL 
if  (deadl  .or.  dead2)  dead(army(i))— dead(army(i))-(-l 
20  CONTINUE 

if  (histry)  print  l.dead 

if  (nblu.eq.dead(BLU)  .or.  nred.eq.dead(RED)) 

1  call  skedul(t-h5., NULL, 'finish', N1.1LL) 

if  (trace)  print  ’,'< deaths' 

END 


8.5  LateKl:  Simulate  Discard  of  Inactive  M&F-Killed  Target.  After  a  target  suffers  an 
M&F-Kill  and  t  seconds  elapse  or  n  hits  are  scored,  the  foes  of  the  target  will  recognize  that  it  is  dead  due 
to  its  inactivity.  Those  engaging  the  target  will  then  seek  a  new  target  to  engage.  It  will  be  marked  as  I- 
Killed  (Inactivity  killed)  so  that  no  foes  will  engage  it  again. 


CODE 

COMMENT 

t 

Time  (sec). 

tgt 

ID  of  target  (integer) 

Ji 

Unused  dummy  variable 

firer 

ID  of  target’s  first  foe.  (Any  will  do.) 

life(tgt) 

Status  of  target  is  bumped  to  1-killed. 

c  V7.2 

SUBROUTINE  LATE  KL  (t,  tgtjjj 

c  3  Late  kl:  Simulate  recognition  ot  m&f  kill  after  period  of  inactivity, 
include  'common. h’ 
integer  firer,  tgt 

1  format(r8.2,lx,a4,i3,'  I-killed.’) 
c 

if  (trace)  print  •,'>latekr 

if  (histry)  print  i,  t,  color(army(tgt)),  tgt 

firer  —  1 

if  (tgt. le.nblu)  firer— nblu+1 
life(tgt)  —  IKILL 
call  cancel  (tgt.  'ikill  ’.NULL) 
call  newtgt  (t. firer. tgt) 
call  deaths(t) 

if^ace)  print  *.'<latekr 
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Intentionally  left  blank. 


9.  LETHALITY  ROUTINES 


This  set  of  six  routines  handles  the  lethality  data.  The  program  calls  the  rd  pkhl,  rd  pkh2,  or  rd 
pkh5  routine  once  per  side  to  read  in  the  appropriate  lethality  data.  Rd  pkh2  is  used  if  lethality  is 
known  only  for  7  ranges  at  the  catastrophic  kill  level.  Rd  pkh5  is  used  for  top  attack  rounds  like 
STAFF.  If  the  user  wants  sample  lethality  data  printed,  Rd  pkhl  calls  mk  tbi  1,0  generate  raw  and  pro¬ 
cessed  data  for  head-on  cases  which  will  be  echoed.  The  program  calls  the  kill  or  kills  routine  every  time 
a  round  hits  to  hnd  the  amount  of  damage  caused. 

The  diagram  below  shows  the  relation  of  the  lethality  routines.  This  section  discusses  those  in  solid 
boxes.  The  dashed  lines  indicate  routines  that  share  lethality  data  via  common. 


Data.  Data  stored  in  the  labeled  common  blocks  .'cpkh/,  /Cpkh2  \  and  cpkho  are  known  only  to 
the  lethality  routines.  Normally,  targets  are  considered  symmetrical  so  data  is  read  for  aspect  angles  from 
zero  to  180  degrees  at  .30  degree  increments,  for  a  total  of  7  individual  aspect  angles.  When  a  target  is 
asymmetrical  the  program  reads  data  for  12  aspect  angles  from  -180  to  180  degrees. 

The  block  /cpkh/  is  known  only  to  rd  pkhl  and  mk  tbl  and  the  variables  are: 
table(4,12)  -  table(i,j)  is  the  lethality  of  ith  type  at  jth  aspect  angle. 
echo(2,7,7)  -  echo(i,j,k)  lethality  data  for  ith  side,  jth  range,  and  kth  type, 
jrg(2.7)  -  jrg(i,j)  ith  side,  jth  range  (meters). 
jdisp(2,7)  -  jdisp(i,j)  ith  side's  jth  dispersion  (ft). 

The  block  /cpkh2/  is  known  only  to  rd  pkhl,  rd  pkh2,  and  kill.  The  read  routines  store  the  pro¬ 
cessed  lethality  data  in  its  variables.  The  arr.ays  are; 

nangls(2)  -  nangles(i)  contains  the  number  of  angles  of  data  stored  for  the  ith  side. 


pkh(2,7,12,2,4,ll)  -  the  processed  lethality  data. 

The  lethality  data  is  a  function  of  the: 

2  sides, 

7  ranges, 

12  aspect  angles, 

2  exposures, 

4  kill  levels,  and 
11  dispersions 

The  block  /cpkhS/  is  known  only  to  rd  pkh5  and  kiU5.  The  arrays  are: 
anglim(4)  -  Lower  angular  limit  of  fan  sectors  (deg). 
pkh5(2,7,4,4,12)  -  the  processed  lethality  data, 
yl  -  Distance  from  center  of  turret  ring  to  lower  edge  of  fan  (m). 

y2  -  Distance  from  center  of  turret  ring  to  base  of  fan  (m). 

y3  -  Distance  from  center  of  turret  ring  to  center  of  shot  pattern  (m). 

fans  -  Number  of  fans  of  data  over  target  (integer). 

Section  9.6  discusses  the  variables  in  block  /cpkh5/  further. 
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9.1  RdPkhl:  Read  Standard  Lethality  Data.  This  routine  reads  standard  lUA  lethality  data 
produced  by  VLD/BRL  converts  it,  does  some  checking  of  the  data  and  if  desired,  echos  sample  lethality 
data  for  a  head  on  hit  on  the  target.  The  lUA  data  consists  of  a  header  line  plus  88  lines  of  data  for 
HEAT  rounds.  Since  the  lethality  of  a  KE  round  is  range  dependent,  lUA  data  for  KE  consists  of  a  header 
line  plus  88  lines  of  data  for  each  of  seven  ranges  from  zero  meters  to  3,000  meters  in  500  meter  incre¬ 
ments. 

The  data  is  treated  as  probabilities  of  kill  given  a  hit,  where  the  first  line  in  each  set  of  four  lines 
contains  the  probability  of  a  mobility  kill,  the  second  has  firepower  kill,  the  third  has  mobility  and 
firepower  kill,  and  the  fourth  has  catastrophic  kill.  Lethality  data  for  a  single  dispersion  is  initially  read 
into  an  array  table.  If  the  target  is  symmetrical,  the  DO  30  loop  will  read  7  values  for  aspect  angles  from 
0  to  180  degrees.  For  asymmetrical  targets,  it  will  read  12  values.  Table  13  illustrates  this. 

Table  13.  Lethality  Data  Stored  in  Table(4,r2) 


Kill 

Aspect  Ang 

e 

Level 

0 

30 

180 

330 

M 

F 

M|F 

K 

1 

1 

1 

1 

1 

1 

The  DO  40  loop  checks  to  see  if  any  values  are  less  than  zero  or  greater  than  1  and  tallies  an  error  if 
so.  If  the  routine  finds  bad  data,  it  prints  the  line  number.  This  occurs  for  up  to  20  bad  lines.  The  rou¬ 
tine  stops  when  20  bad  lines  are  found  or  before  returning  to  the  calling  routine  if  any  bad  lines  were 
found.  The  most  likely  cause  of  an  error  is  a  change  in  the  format  of  the  lethality  data. 

The  DO  10  loop  converts  the  data  just  read  in  into  a  usable  form.  It  finds  the  probabilities  of  a 
mobility  kill  only,  of  a  firepower  kill  only,  and  of  a  mobility  and  firepower  kill  only.  These  last  three  and 
the  catastrophic  kill  are  the  values  actually  u.sed  by  the  program.  There  are  several  ways  to  calculate 
these  values;  here  is  one: 

Let 

M  =  probability  of  a  mobility  kill  given  a  hit 

F  =  probability  of  a  firepower  kill  given  a  hit 

E  =  probability  of  either  mobility  or  firepower  kill  ms  above 

K  =  probability  of  a  catastrophic  kill  given  a  hit 

M’=  probability  of  a  mobility  kill  only  given  a  hit 

F'=  probability  of  a  firepower  kill  only  given  a  hit 

B  =  probability  of  a  both  a  mobility  and  firepower  kill  (hut  not  K-kill) 

Then  given  the  raw  inputs  M,  F.  E.  K.  the  specific  kill  probabilities  are: 

M’  =  E  -  F 
F'  =  E  -  .M 

B  =  F  -  F'  -  K  (=  M  -  M'  -  K  =  E  -  NL  -  F’  -  K) 

K  =  K 

The  \'enn  diagrams  in  Figure  7  illustrate  how  the  raw  kills  are  .separated  into  specific  kills. 
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Figure  7.  Raw  and  Specific  Probabilities  of  Kill. 


If  desired,  the  mk  tbl  routine  is  called  to  generate  sample  output,  and  in  any  case,  the  name  of  the 
lethality  file  is  printed. 


Arguments  and  Local  Variables. 


CODE 

dbname 

narmy 

iecho 

fandm 

header 

irg 


_ COMMENT _ 

Character  name  of  lethality  data  file 
1  for  Blue,  2  for  Red 
Echos  sample  lethality  data  if  >  2 
Probability  of  M  and  F  kill  but  not  K-kill. 

Character  header  line  for  sample  data 
1  to  7  for  the  appropriate  range  bands.  Normally,  they  are 


0,  500,  1000,  ...,  3000  meters. 


line 

mang 

maxexp 

mdisp 

nerr 

nhdfe 

nrrgs 


nrow 

onlym 

onlyf 


ktgt,  kproj,  krg,  kexp,  kdisp,  ktype  are  read  in  but  never 
set.  They  may  be  used  in  the  future  for  error  checking. 

Line  number  (for  reporting  bad  data  lines) 

Number  of  column  containing  aspect  angle  data. 

2  (Hull  defilade  and  fully  exposed). 

1  to  10  for  1  to  10  foot  dispersions,  11  for  uniform  dispersion. 

Number  of  errors  found 

1  for  hull  defilade.  2  for  fully  exposed  data 

KE  lethality  is  a  function  of  range,  so  read  7  sets  of 

data  for  KE.  Only  one  is  required  for  HE.\T  rounds. 

Row  of  sample  data  to  fill  in  table. 

Probability  of  M-kill  only. 

Probability  of  F-kill  only. 


c 

SUBROUTINE  RDPKHl  (dbname.  narmy.  iecho) 
c  3  Rd  pkh:  read  &  write  probability-of-kill-given-a-hit  ilata. 
include  'common. h' 
character*32  dbname 
character*78  header 

common  /cpkh/  table  (4,12),  echo(2.7,7),  jrg(2.7).  jdisp(2.7) 
common  /cpkh2/  nang)s(2),  pkh(2, 7, 12.2,4,1 1 ) 

1  format  (2i4.i5,i2,i3,i2, lx,  12ff).3) 

2  format  (17,717.3,14) 

3  format  (i2,a78) 

4  format  (’  Rg  7(’-'), 'Sample  Head-on ', 

1  'Kill  Probabilities', 7('-'),  '  di.sp',/,'  ', 

2  '  (m)  M  F  MF  K  Monly  Fonly  M.tF  (ft)') 

')  format)  ,^2()x.a20) 

8  format)  Rdpkh:  Iine',i4,i2.'nd  value  is  bad  (— '.ffi.3.')') 


9  formate  Rdpkh:  lines', i  l.'-'.i4,'  col  . i3.  give  m,f,7iii.T='. 

1  3f6.3) 

c 

if  (trace)  write)*,*)'  -  rdpkh' 
open  (4,  file— dbname.  ,statu.s='old') 
rewind  4 

read(4,3)  nangl.  header 

if  ( iecho. gt.  1 )  write)  *.3)  header 

line  —  I 

nerrs  —  0 

nr  rgs— 7 

nangis)  narmy)  —  nangl 
if(kind  rd|narmy ).gt.  1  Inr  rgs-1 
DO  80  irg— l.nr  rg.s 
maxexp  —  J 

DO  70  nhdfe*  1  .maxexp 
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DO  60  mdisp—l,!! 

DO30i-l,4 

read  (4,1)  ktgt,kproj,krg,kexp,kdisp,ktype, 
(table(i,j),j»l,nangl) 

30  CONTINUE 

c  Check  table  for  pkh’s  <0  or  >  1. 

DO  40  i-1,4 
line  —  line+1 
DO  35  j— l.nangl 

IF  (table(i,j).it.O.  .or.  table(i,j).gt.l.)  THEN 
write(*,8)line,j,table(i,j) 
nerrs  —  nerrs+1 

if  (nerrs. gt.20)  write(*,*)’RDPKH:  loo  many  errors’ 
if  (nerrs.gt.20)  STOP 
ENDIF 

35  CONTINUE 

40  CONTINUE 

c  Convert  to  m,  f,  mf,  k  only  and  move  to  pkh  array 

DO  10  mang— nangl,l,-l 
onlym  ->  table(3,mang)-table(2,mang) 
only  f—table(3,mang}-table{l, mang) 
fandm— table(2,mang)-table(4,mang)-onlyf 
c 

pkh(narmy,irg,mang,nndre,l,mdispl— onlym 
pkh(narmy.irg,mang,nhdre,2,mdispWonlyf 
pkh(narmy,irg,mang.nhdfe,3,mdisp)  -  fandm 
pkh(narmy,irg,mang.nhdre,4,mdisp) 

1  table{4,mang) 

IF  (onlym. It. 0  .or.  onlyf.lt.O  or.  fandm. It. 0)  THEN 
write(*,9)  line-3,  line,  mang,  onlym,  onlyf,  fandm 
nerr— nerr-hl 

ENDIF 

10  CONTINUE 

IF  (iecho.ge.2)  THEN 
nrow  =«  0 

if  (irg.eq.l  and.  mdisp.eq.l)  nrow  —  1 
if  (irg-l.eq.mdisp  .and.  nrrgs.eq.71  nrow  =  irg 
if  (mdisp.eq.l  .and.  nrrgs.eq.l)  call  mk  tbl( 

1  only  m, onlyf, fandm,  mdisp,nhdfe,l) 

if  fmdisp.le.6  .and.  nrrgs.eq.l)  nrow  -  mdisp-hl 
if  (nrow.gt.O)  call  mk  tbl( 

1  onlym, only  f,fandm,mdisp,nhdfe,  nrow) 

ENDIF 

60  CONTINUE 
70  CONTINUE 
80  CONTINUE 
close(4) 

IF  (iecho.ge.2)  THEN 
write!*, SVHull  Defilade' 
write(*,4) 

write(*,2j(jrg(l,i).(echo(l,i,j).j“1.7),jdisp(l.i),i-l.7) 

write/*, SrFully  Exposed’ 

write(*,4) 

write(*,2)(jrg(2,i),(echo(2,i.j).j-I,7),jdisp(2,i),i-l,7) 

ENDIF 

IF  ( nerrs. gt.iy  THEN 

write!*,*)  'RDPKH:  errors  found  in  data  so  program  stops  ’ 
STOP 
ENDIF 

print*,’  Pkh  file  is:’,dbname 
00  if  (trace)  write(*,*)’ < rdpkh' 

END 
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9.2  MkTbl:  Make  Table  of  Head-on  Lethality  Data.  The  subroutine  mk  tbi  makes  a  head-on 
pkh  table  for  echo  consisting  of  raw  pk  data  and  disaggregated  data.  If  the  user  desires  an  echo  of  sample 
lethality  data,  rd  pkhl  calls  mk  tbl  to  generate  the  sample  data.  Mk  tbl  inserts  data  for  1  foot  disper¬ 
sion  at  zero  range  and  1  foot  dispersion  per  500  meters  at  greater  ranges. 

Mk  tbl  copies  the  raw  data  read  by  rd  pkh  into  the  first  four  columns  of  the  echo  table  and  the 
processed  data  generated  by  rd  pkh  into  the  fifth  through  seventh  columns. 


Table  14.  Table  Generated  by  MkTbl 


Range 

(m) 

Kill  Probability  by  Category 

Dispersion 

(ft) 

M-kill 

F-kill 

MiF-kill 

K-kill 

M’-kill 

F’-kill 

M&F’-kill 

0 

500 

1000 

1500 

2000 

2500 

3000 

c  V7.1 

SUBROUTINE  MK  TBL  (onlym.onlyf.fandm.mdisp.k.nrow) 
c  3  Mk  tbl:  make  head-on  pkh  table  Tor  echo, 
include  'common. h' 

common  /cpkh/  table  (4,12),  echo(2,7,7),  jrg(2,7),  jdisp(2,7) 
c 

if  (trace)  print  •,'>mktbr 
jrg(k,nrow)  —  (nrow-l)*irginc 
DO  11  j-1,4 

echo(k,nrow,j)  —  table(j,l) 

11  CONTINUE 

echo(k,nrow,5)  —  onlym 
echo(k,nrow,6j  ■■  onlyf 
echo(k,nrow,7)  —  fandm 
jdisp|k,nrow)  mdisp 
90  if  (trace)  print  *,'<  mktbr 
E.ND 
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0.3  RdPkhO:  Read  HEAT  and  Missile  Lethality  Data.  Rd  Pkh2  reads  only  7  lethality  values 
for  7  ranges.  These  are  all  catastrophic  kill  values.  It  sets  the  probability  of  lesser  damage  levels  to  zero 
and  stores  the  K-kill  values  in  appropriate  places  in  the  pkh  array.  This  fakes  out  the  kill  routine  which 
assumes  lethality  is  a  function  of  other  variables  besides  range. 

c  V7.3 

SUBROUTINE  RDPKH2  (dbname,  nartny,  iecho) 
c  Idh...  Jan  1986 

c  from  grc..o''t  1981(tankwars) 

c  this  replaces  rdpkh  when  the  Tollowing  pk  values  are  read 

c  instead,  below  puts  pk  values  (1  for  each  range  into 

c  the  k-kill  spot  in  the  pkh  tables,  0  for  m,nn-f,  f  kill  spots 

include  'common. h' 
integer  dbname 

common  /cpkh2/  nangls(2),  pkh(2,7,12,2,‘l,ll) 

1  format(6f5.2) 

if  (trace)  print  •,’>rdpkh2' 
read(dbname,l)pkl,pk2,pk3,pk4,pk5,pk6,pk7 
DO  40  irg— 1,7 
DO  30  nhdfe-1,2 
DO  20  mdisp—1,10 
DO  10  mang=i,7 

pkh(narmy,irg,mang,nhdfe,l,mdisp)“0.0 
pkhinarmy,irg,mang,nhdfe,2,mdispH0.0 
pkhlnarmy,irg,mang,nhdfe,3,mdisp)— 0.0 
pkhlnarmy,l,mang,nhdfe,4,mdispl— pkl 
pkh(narmy,2,mang,nhdfe,4,mdispj— pk2 
pkh(narmy,3,mang,nhdfe,4,mdispj-pk3 
pkh(narmy,4,mang,nhdfe,4,mdispj— pk4 
pkh(narmy,5,mang,nhdfe,4,mdispj— pk5 
pkhlnarmy,6,mang,nhdfe.4.mdisp)—pk6 
pkh(narmy,7,mang,nhdre,4,mdisp)«pk7 
10  CONTINUE 
20  CONTINUE 

30  continut: 

40  CONTINUE 

print*,'  Pkh  file  is:', dbname 
if  (trace)  print  *.'<rdpkh2' 


9.4  RdPkh5:  Read  Top  Attack  Lethality  Data.  Rd  pkh5  reads  STAFF’S  (level  5  round  type) 
lethality  data  which  includes  the  distance  to  the  lower  bound  of  the  fans  (yj,  ‘base’  of  the  fans  (yj),  and 
aim  point  (yj),  also  the  number  of  bands  in  a  fan,  sectors  in  a  band,  and  fans.  The  lethality  of  the  round 
depends  on  its  distance  above  the  target  and  its  elevation  angle.  Each  of  the  4  kill  categories:  only  mobil¬ 
ity,  only  firepower,  only  M&F,  K-Kill,  are  read  in  and  separated  in  each  fan. 


Input  data 

The  game  file  contains  a  line  specifying  where  the  lethality  data  is  stored.  The  first  column  of  this 
line  contains  an  integer  which  should  be  5  for  STAFF  data.  The  rest  of  that  line  contains  the  name  of  the 
lethality  data  file. 

The  lethality  file  describes  the  lethality  fans.  The  data  includes: 


CODE 

yi 

y2 

y3 

bands 

sectrs 

fans 


_ COMMENT _ 

The  distance  from  the  target  centroid  to  the  lower  bound  of  the  fans. 
The  distance  from  the  target  centroid  to  the  ‘base’  of  the  fans. 

The  distance  from  the  target  centroid  to  the  aim  point. 

The  number  of  bands  in  a  fan  (1-7). 

The  number  of  sectors  in  a  band  (1-4). 

The  number  of  fans  (7  or  12). 


The  lethality  data  is  stored  in  the  array  pkh5(2,7,4,4,12),  where  pkh5(i,j,k.l.m)  is  the  lethality  data 
for  the  ith  army,  in  the  jth  distance  band  above  the  target,  in  the  kth  angular  sector,  for  the  1th  kill  level, 
and  for  the  mth  fan.  The  four  levels  of  kill  are;  mobility  kill,  firepower  kill,  mobility  &  firepower  kill,  and 
catastrophic  kill.  Table  15  contains  dummy  data  illustrating  the  format  of  the  ST.\FF  lethality  file. 


Table  15.  Sample  Lethality  File 


band/sector/kill 

0  deg 

30  deg 

FAN  DATA 

60  deg  90  deg 

120  deg 

1.50  deg 

180  deg 

2.. 8.  JO.. 

distances  to  fan,  b  ise,  aim  point 

7,4,7. 

#bands,  sectors,  fans 

■45.0,52.5.67.5,82.5, 

sector  lower  bounds 

60  45.0  m 

0.35 

0.35 

0.35 

0  35 

0.35 

0.35 

0.35 

60  45.0  r 

0.92 

0.92 

0.92 

0.92 

0.92 

0.92 

0.92 

60  45.0  » 

0  94 

0.94 

0.94 

0  94 

0.94 

0.94 

0.94 

60  45.0  k 

0.30 

0.30 

0.30 

0.30 

0.30 

0.30 

0.30 

60  52.5  m 

0  45 

0.45 

0  45 

0.45 

0.45 

0.45 

0.45 

60  .52.5  r 

0  88 

0.88 

0.88 

0.88 

0.88 

0.88 

0  88 

60  52.5  e 

0.90 

0.90 

0.90 

0.90 

0  90 

0.90 

0.90 

60  52.5  k 

0.25 

0.25 

0  25 

0.25 

0.25 

0.25 

0.25 

60  67.5  m 

0.52 

0.52 

0.52 

0.52 

0..52 

0,52 

0.52 

60  67.5  f 

0.74 

0.74 

0.74 

0.74 

0.74 

0  74 

0  74 

60  67.5  e 

0.78 

0.78 

0.78 

0.78 

0.78 

0.78 

0.78 

60  67.5  k 

0.20 

0  20 

0.20 

0.20 

0  20 

0  20 

1)  20 

60  82.5  m 

0.62 

0  62 

0,62 

0.62 

0  62 

0.62 

0  62 

60  82.5  f 

0.62 

0.62 

0.62 

0.62 

0.62 

0.62 

0  62 

60  82.5  e 

0,70 

0.70 

0.70 

0.70 

0  70 

0  70 

0  70 

60  82.5  k 

0.15 

0  15 

0.15 

0.15 

0.15 

0  15 

0.15 

50  45.0  m 

0.35 

0.35 

0.35 

0.35 

0.35 

0„3.5 

0.35 

0  45  0  m 

0.35 

0.35 

0.35 

0.35 

0.35 

0.35 

0.35 

0  82.5  k 

0.15 

0  15 

0.15 

0.15 

0  15 

0.15 

0.15 

c  V7.5 

SUBROUTINE  RDPKH5  (dbname,narmy,iecho) 
c  RdpkhS:  read  STAFF  lethality  data. 

integer  fan,  fans,  band,  bands,  sector,  sectrs 
logical  trace,  histry 
real  tbl(4,12) 
character*32  dbname 

common  /cpkhS/  anglim(4),  pkh5(2,7,4,4,12),  yl,  y2,  y3,  fans 
common  /ctrace/  trace,  histry 
save /cpkhS/ 

1  format(l2x,12f6.2) 

2  rormat(Sr6.2) 

3  format(’LETHALITY;  head-on  fan,  middle  band.’,/, 

1  'angle  onlym  onlyf  onlymf  k-kill’) 

c 

if  (trace)  print  *,’>rdpkhS’ 
c  Read  pkh  in  fan. 

open  (4,  file— dbname,  status— 'old') 
rewind  4 

readf4,*l  yl,  y2,  y3 
read(4,*j  bands,  sectrs,  fans 
read(4,*)  (anglim(n),n— l.sectrs) 

DO  30  band— 1, bands 
DO  20  sector— l.sectrs 
DO  5  i-1,4 

c  Read  1  row  for  each  of  the  4  kill  categories. 

read(4,l)  (tbl{i,fan),fan— l.fans) 

5  CONTINUE 

DO  10  fan— l.fans 

c  Separate  each  kill  criteria  in  each  fan. 

onlym  —  tbl(3,ran)-tbl(2,fan) 
onlyf  —  tbl(3,fan)-tbl(  l,fan) 
pkh5(narmy,band,sector,l,fanj  —  onlym 
pkhSinarmy, band, sector, 2, fan)  —  onlyf 
pkh5(narmy, band, sector, 3, fan)  — 

1  tbl(3,fan)-onlym-onlyf-tbl(4,fan) 

pkh5(narmy,band.sector,4,fan)  —  tbl(4,fan) 

10  CONTINUE 

20  CONTINUE 

30  CONTINUE 
close(4) 

c  Print  sample  data  in  4th  band  if  desired. 

IF  (iecho.gt.I)THEN 
print  3 

DO  60  sector-1,4 

print  2,  anglim(seclor),(pkh5(narmy,4,sector,i,l),i  =  l,4) 
60  CONTINUE 

END  IF 

print*,’  Pkh  file  is;’, dbname 
if  (trace)  print  *,’<rdpkh5’ 

END 
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9.5  Kill;  Find  Type  of  D&mage  Caused.  Kill  finds  the  kill  type  and  probabilities  for  a  hit  on  a 
target  including;  No  damage,  M-Kill,  F-Kill,  M&F-Kill,  and  K-Kill.  The  results  of  each  shot  by  kill  type 
and  the  army  firing  the  shot  are  tallied  in  the  array  kshot.  Arguments  and  local  variables. 


CODE 

COMMENT 

I 

ID  of  the  firer  (0  <  1  <  NN). 

it 

ID  of  the  target. 

y 

Variable  no  longer  used 

ndisp 

Dispersion  (l  to  10  ft).  11  for  uniform  dispersion. 

nang 

Aspect  angle  band.  1  is  head  on,  2  is  30  degrees,  etc. 

pk 

Random  draw  from  the  uniform  distribution 

nhdfe 

1  for  hull  defilade,  2  for  fully  exposed. 

m 

Side  of  firer.  1  for  Blue,  2  for  Red. 

jrg 

Range  band.  Normally  1  for  0  range.  2  for  500  meters,  etc. 

pksave(i) 

Appropriate  kill  probability  for  M’-kill,  F'-kill,  MiF'-kill. 
and  K-kill. 

FUNCTION  KILL  (I,  it,  y,  ndisp,  nang) 
i-  9  Kill:  find  kill  type  for  a  hit  on  a  tgt, 
include  'common. h’ 

common  /cpkh'2/  nangls(2),  pkh(2,7,12,2.4.1U 
dimension  pksave(4) 
c 

if  (trace)  print  *.'  >  kill' 
pk  =“  ranu(O.O) 
nhdfe  —  knceal|it)-l 

c  Find  probabilities  for  a  production  run 
m  =  army(I) 
jrg=»min0(6,nrg|+l 
iflkind  rd(m).gt.l)  jrg=l 

pksave(l)  =  pkh(m. jrg, nang, nh-ife,  I, ndisp) 

pksave(2)  =  pksave(l)+pkh(m,jrg, nang, nhdfe, 2, ndisp) 
pksave(3)  =  pksave(2j+pkhlm,jrg, nang, nhdfe, 3, ndisp) 
pksavejd)  —  pksave(3)+pkh(m,jrg, nang, nhdfe,4, ndisp’) 
c  Find  which  kill  type  occurs. 

if  (pk.lt.pksave(4))  kill  =  KKILL 
if  (pk.lt.pksave(3)j  kill  —  MFKILL 
if  (pk.lt.pksave(2))  kill  =  FKILL 
if  (pk.lt.pksavell))  kill  =  MKILL 
if  (pk.ge.pksave(4))  kill  —  ALIVE 
if  (kill.eq..ALI'VE)  kshot(m,10)  —  kshot(m,10)+l 
if  (kill.eq.MKILL)  kshot(m,l  1 )  —  kshotim,  1 1  (+1 
if  (kill. eq. FKILL)  kshot(m,12)  —  kshotim. 12)+1 
if  (kill. eq, MFKILL)  kshot{m.l3)  =  kshot(m,13)+l 
if  ( kill. eq. KKILL)  kshot(m,14)  =  kshotim. 14)+1 
if  (trace)  print  *,'  <  kill' 

END 


f)S 


9.6  KillS:  Find  Type  of  Damage  Caused  by  Top  Attack  Round.  Kills  randomly  chooses  the 
type  of  damage  caused  by  a  single  top  attack  round.  It  was  designed  to  simulate  STAFF  rounds  but  may 
be  appropriate  for  other  top  attack  rounds.  The  probability  of  choosing  a  mobility,  firepower,  or  catas¬ 
trophic  kill  is  a  function  of:  height  of  the  round  over  the  target,  elevation  angle  of  round,  and  aspect  angle 
(path  of  round  w,r.t,  target  front) 

Unlike  other  rounds  simulated  in  the  Tank  Wars  model,  STAFF  rounds  are  not  fired  directly  at  a 
target.  They  are  fired  over  the  target,  sense  the  target  below  them,  and  fire  an  explosively  formed  projec¬ 
tile  (EFP)  down  through  the  top  of  the  target. 

The  lethality  data  is  represented  as  7  or  12  fans  above  the  target.  If  the  target  is  symmetrical,  only 
7  fans  are  needed;  one  at  each  aspect  angle  in  the  series  0,  30,  ....  180  degrees.  If  the  target  is  asymmetri¬ 
cal,  12  fans  are  needed  from  0  to  330  degrees.  Figure  8  illustrates  a  single  fan. 

The  STAFF  round  must  hit  a  fan  above  the  target  as  shown  in  Figure  8  The  lethality  of  the  round 
depends  on  its  distance  above  the  target  and  its  elevation  angle.  The  left  figure  illustrates  cells  in  the  fan. 
Each  cell  has  kill  probabilities  at  all  -4  levels.  The  right  figure  illustrates  the  bivariate  normal  shot  pat¬ 
tern,  several  defining  measurements,  and  the  z,  y  position  of  the  actual  round. 


Each  fan  has  up  to  7  circular  bands  and  4  wedge  shaped  sectors  on  each  side  of  the  vertical.  Kill5 
finds  which  band  and  sector  the  round  passes  through.  It  then  consults  the  pkh.5  table  to  find  the  M.  F, 
M&F.  and  K-kill  probabilities.  The  program  then  lays  out  the  probabilities  on  the  unit  interval  as  shown 
below.  Next,  it  draws  a  random  number  to  choose  an  interval.  The  kill  level  associated  with  the  interval 
becomes  the  damage  level. 

I  no  dmg  I  M'-kill  |  F’-kill  |  M.kF'-kill  | _ k-kill _ j 

0  Pi  p.,  Ps  p^  1 

The  program  uses  the  following  symbols  and  relations: 


CODE 

MATH 

COMMENT 

I 

ID  of  firer  (1..NN) 

X,  y 

•r.  y 

Coordinates  of  round  from  center  of  impact  (m). 

nang 

#  of  angular  sector  in  which  round  aproaches  target. 

yi 

Distance  from  target  to  lower  edge  of  fan. 

y-i 

Distance  from  target  to  apex  of  fan. 

Distance  round  is  aimed  above  target. 

h 

h  =  jf+j/s+Vs 

Height  of  round  above  fan  vertex  (m). 

d 

a  =  ^  X  +h 

Distance  of  the  round  from  the  base  of  the  fan  (m). 

d<y^+y2 

Implies  round  below  fan. 

<^>1/ 1+210+"® 

Implies  round  is  above  fan. 

e 

f  =  atan(h/x) 

Elevation  angle  of  the  round. 

t  >45 

Implies  round  is  left  or  right  of  fan. 

fan 

/ 

ID  of  fan  perpendicular  to  approach  angle. 

fans 

#  of  fans  defined  by  data. 

sector 

j 

ID  of  sector. 

anglim(n) 

Lower  angular  limit  of  the  nth  cell  in  the  fan. 

band 

1 

ID  of  band. 

pk 

Random  draw  from  uniform  distribution 

m 

1  if  Blue  firer.  2  if  Red  firer 

pkh5() 

j,k,l 

Probability  of  kill  when  the  round  passes  through 
the  i,j  cell.  (For  side  m,  kill  level  k.  and  fan  /.) 

pksave(-4) 

Pi 

Sums  of  kill  probabilities. 

kills 

Damage  caused  by  round.  1  if  none.  2  if  mobility  kill,  3  if  firepower  kill. 

4  if  mobility  &  firepower.  6  if  catastrophic. 

kshotO 

Tallies  statistical  results. 

c  V7.5 

FUNCTION  KILLS  (I.  x.  y,  nang) 

0  9  KillS:  find  kill  type  for  a  STAFF-like  round. 

<:  sector  -  angle  band 

c  band  -  range  band  (distance  above  tgt). 
include  'common. h' 

c  Uses:  trace,  army.  ALIVE.  DEG  .  KKILL.  MFKILL,  FKILL,  MKILL.  ksSaNDIF 
integer  fan,  fans,  band,  sector  E.NDIF 

common  /cpkhS/ angliml-tl.  pkh■5(■i!,7,^.^.12),  yl.  y2.  y3.  fans  if  (trace)  print 

save  cpkh.S;  E.ND 

dimension  pksave(-t) 


if  (pk.gt.pksaveU))  kill.S  —  KKILL 
if  (kills. ei).,\LIVE|  kshottm.lOl  -  kshoil m.  11)1+1 
if  (killS.eij  .MKILL)  kshot(m.  1 1 )  =  k.shoti  m,  1 1  !+l 
if  (kills. eq. FKILL)  kshot(m.l'J)  =  kshot(m.l'.’l+I 
if  (kills  eq  .MFKILLlkshotl  m.  13)  =  kshot(m.l3)+l 
if  (kills  e').KKILL)  kshoil m.  1 1)  =  kshoti m.  1  t)+l 


if  (trace)  print  *,’  >  killS' 
h  —  y+yd+v3 
d  -  sqrt(x**2  +  h**2) 
kills  =  ALIVE 

IF  |d.gt.yl+y2  and.  d.lt.yl+y'2+70.0)  THEN 
c  Round  is  within  distance  limits,  proceed, 
e  —  alan2|h,abs(x))*DEG 
IF  (e.gt.dS.)  THEN 

c  Round  is  within  angular  limits,  proceed, 
fan  -•  nang 

if  (nang. gt. fans)  fan—H-nang 
sector  —  inde.xx(e,d,anglim) 
band  —  7-int((d-y  l-yj)/ 10.0) 
pk  —  ranu(O.O) 
m  —  army(I) 

pksaveld)  —  1.  -  pkhS(m. band. sector.!. fan) 

pksave(3)  —  pksavel-tFpkhSI  in, band. sector. 3. fan) 
pksave('J)  —  pksave(3)-pkh5(m. band, sector, 2, fan) 
pksave(l)  —  pksave(2FpkhS(m. band, sector, 1, fan) 
if  (pk.gt.pksave) ; ))  killS  =■  MKILL 
if  (pk.gt.pksave(2))  killS  -  FKILL 
if  ( pk.gt.pksave(3)j  killS  —  MFKILL 
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10.  DISENGAGEMENT  ROUTINES 


There  are  four  categories  of  disengagement  in  tank  vs  tank  combat.  Each  has  different  causes,  conse¬ 
quences,  and  must  be  handled  separately.  A  single  tank  disengages  a  single  target  when  it  has  partially  or 
completely  serviced  it.  A  single  tank  may  disengage  several  targets  when  the  tank  dies  or  goes  behind  ter¬ 
rain.  Multiple  tanks  will  disengage  a  target  when  it  dies  or  goes  behind  terrain.  And  finally,  there  is  gen¬ 
eral  disengagement  at  the  end  of  combat. 

Experience  over  a  dozen  years  shows  that  the  logic  for  target  disengagement  is  extremely  complex 
and  error  prone.  For  that  reason,  this  section  discusses  the  subject  in  detail. 

One  tank  disengages  a  single  target.  A  single  tank  will  disengage  a  single  target  if  it  runs  out  of 
ammo,  meets  it’s  target  switching  criterion,  smoke  blocks  the  line  of  sight,  or  the  target  goes  out  of  range. 
The  target  switching  criterion  are  1)  the  firer  hits  the  target  or  2)  the  firer  fires  rounds  at  the  target. 

One  tank  disengages  several  targets.  When  a  target  is  F-killed  or  worse,  it  disengages  any  tar¬ 
gets  it  has  and  takes  no  new  ones.  W'hen  a  target  vanishes  due  to  terrain,  ;t  disengages  any  targets  it  has 
and  again  takes  no  new  ones. 

Many  tanks  disengage  a  single  target.  All  foe  will  disengage  a  target  when  it  is  visibly  killed  or 
vanishes  due  to  terrain.  The  target  is  visibly  killed  when  it  is  K-killed  or  1-killed. 

The  I-kill  (inactivity  kill)  is  a  concept  unique  to  Tank  Wars.  It  occurs  when  a  tank  is  .MA'F  killed 
and  one  or  both  of  the  following  occur:  the  target  suffers  hits  or  seco:'<’-'  elapse.  This  is  an 

attempt  to  simulate  gunners  discarding  a  tank  that  is  inactive  for  some  time.  The  foe  will  disengage  a  K- 
killed  target  when  damage  calls  newtgt  and  an  1-killed  target  when  Itkill  calls  newtgt 

The  target  vanishes  due  to  terrain  if  it’s  path  simply  fakes  it  behind  terrain,  it  hides  because  it  is 
firepower  killed  or  out  of  ammo,  or  it  is  a  defender  that  pops  down  to  'reload'  by  replacing  an  empty  mis¬ 
sile  pod  with  a  full  one.  The  foe  will  di.sengage  such  a  vanished  target  when  vanter  calls  newtgt. 
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10.1  Disengagement  Tactics.  Tank  Wars  contains  logic  for  three  disengagement  policies  so  that 
you  can  evaluate  weapon  systems  under  each  policy.  Under  the  first  policy,  a  firer  continues  to  engage  its 
target  until  the  target  is  K-killed.  A  variant  of  this  policy  allows  the  firer  to  disengage  if  the  target  is 
M&F  killed  and  certain  other  conditions  are  met.  Under  the  second  policy,  a  firer  disengages  the  target 
after  firing  a  fixed  number  of  shots  at  it,  but  may  re-engage  at  a  later  time.  Under  the  third  policy,  a  firer 
disengages  the  target  after  hitting  it,  but  may  re-engage  it  at  a  later  time. 

Tactic  1;  Standard  U.S.  Armor  doctrine  says  the  gunner  will  shoot  at  a  target  until  it  is  known  to 
be  dead  (K-killed).  This  ignores  the  very  real  possibility  that  the  gunner  would  do  better  by  switching  tar¬ 
gets  on  evidence  that  the  current  target  is  no  longer  a  threat.  If  the  target  ceases  all  activity  and  the 
gunner  pumps  further  rounds  at  the  target  or  a  reasonable  period  of  time  passes,  the  target  is  very  likely 
M&F-killed  and  should  be  disengaged.  In  the  model  if  the  target  has  been  M&F-killed  and  the  gunner  sees 
no  activity  for  seconds  or  pumps  another  rounds  on  the  target  he  then  disengages  the  target 

permanently.  If  you  want  to  force  the  model  to  keep  firing  at  an  M&F  killed  target,  just  make  and 
large  values. 

Tactic  2;  If  the  probability  of  an  F-kill  given  a  shot  is  high,  it  may  be  reasonable  to  fire  a  fixed 
number  of  rounds  at  the  target  and  then  switch  to  a  more  threatening  target.  Later,  at  leisure  the  gunner 
may  return  to  these  partially  serviced  targets  to  make  sure  they  are  dead.  Tactic  2  plays  this  early  switch¬ 
ing. 


Tactic  3:  Similarly,  if  the  probability  of  an  F-kill  given  a  hit  is  high,  it  may  be  reasonable  to  fire 
until  the  target  is  hit  and  then  switch  to  another  target.  Again  with  the  possibility  of  returning  to  a  previ¬ 
ous,  partially  serviced  target.  Tactic  3  plays  this  early  switching. 

Naturally  a  firer  disengages  a  target  if  it  vanishes  behind  terrain  and  he  disengages  all  his  targets 
if  he  himself  vanishes.  Similarly,  a  firer  disengages  all  targets  if  he  is  F-killed  or  worse. 

.\ctual  switching  varies  a  great  deal  depending  on  the  types  of  rounds. 


10.2  Single-Shot  Ballistic  Projectiles.  For  guns  firing  single-shot  KE  or  HEAT  ballistic  projec¬ 
tiles,  the  logic  is  straightforward  to  implement.  This  is  discussed  below  and  summarized  in  Table  16. 

The  first  disengagement  policy  causes  the  firer  to  permanently  disengage  a  target  because  it  is  known 
to  be  dead.  Policies  2  and  3  cause  a  temporary  disengagement  because  there  is  reason  to  believe  the  target 
is  dead.  Even  if  policy  2  or  3  is  used,  the  disengagement  criteria  of  policy  I  causes  a  permanent  disengage¬ 
ment. 

With  tactic  set  to  1,  2,  or  3,  when  a  K-kill  occurs,  the  program  immediately  and  permanently  disen¬ 
gages  the  firer  from  the  target.  At  this  same  time,  if  the  target  is  just  .M&F-killed,  the  program  schedules 
a  "late  kill  event"  and  sets  a  flag.  A  K-kill  causes  the  M&F-kill  to  be  bumped  up  to  a  K-kill  and  the  target 
to  be  permanently  disengaged.  A  Late-kill  causes  bumping  to  a  K-kill  by  the  fire  event  if  additional 

rounds  have  been  fired  at  the  target,  and  again  permanent  disengagement  occurs.  .\ote  that  is 

currently  a  constant  but  should  be  replaced  with  a  draw  from  a  random  distribution  when  it  becomes 
known. 


Table  16.  Switching  Logic  for  Bullets 


Tactic 

Condition 

Event 

.\ction 

1 

K-kill 

Impact 

Disengage  target  forever  and 
select  new  target. 

MAF-kill 

Impact 

Schedule  a  late  kill 
in  t  .secotids. 

.\lso  set  a  Hag  to  switch  after 
n.,  more  shots 

M 

F-kill  + 

LateKl 

select  new  target. 

MAF-kill.  and 
shots 

Fire 

Disengage  target  forever  and 
select  new  target. 

2* 

Hit 

Impact 

Disengage  target  for  now  and 
seh'ct  new  target. 

3* 

Fired 

rds _ 

Fir(“ 

Disengage  target  for  now  and  ' 
select  a  tiew  target  ; 

*  The  logic  of  tactic  1  is  used  for  permanently  disengaging  a  target 

In  the  second  type  of  policy  the  gunner  tire>  ,a  lixeii  miinber  ul'  nuiiids  .it  a  target  and  then 
attempts  to  switch  targets.  Tlie  fire  routine  triggers  this  switch  :us  mxih  as  -ax  .1  iiuuids  are  tired  This  is 
a  temporary  disengagement;  the  lirer  may  re-engage  the  target  later 

In  the  third  type  of  policy  the  guiltier  tires  iititil  he  gets  a  liit  and  then  aiietupis  to  switch  The 
Impact  event,  triggers  this  switch  .a.s  soon  .as  a  liit  occurs  This  is  a  temporary  diseng.agemeni :  the  lirer  may 
re-engage  the  target  later. 


10.3  Missile  Systems.  Tank  Wars  simulates  current  ‘simple’  missile  systems  as  well  as  proposed 
systems  that  can  guide  N  missiles  to  N  targets  simultaneously.  Appropriate  disengagement  policies  are 
discussed  below. 

Simple  missile  systems.  A  simple  missile  system  is  one  that  can  only  handle  one  target  at  a  time 
and  one  whose  missile  must  be  guided  by  the  gunner  until  impact.  Target  disengagement  for  this  kind  of 
weapon  is  discussed  below  and  summarized  in  table  17. 

Tactic  1:  The  standard  missile  uses  the  same  logic  as  for  single  shot  bullets  except  that  the  missile 
must  be  guided  to  impact.  As  before,  target  disengagement  on  a  K-kill  occurs  at  impact  time.  If  the  tar¬ 
get  is  M&F-k'lled  and  disengagement  is  to  occur  after  a  delay,  the  firer  may  have  already  launched 
another  missile  at  the  target.  Disengagement  should  not  take  place  until  this  missile  impacts. 

Tactic  2:  Don’t  use  this  tactic.  Switching  after  firing  doesn’t  make  much  sense  for  the  simple  mis¬ 
sile  system.  The  gunner  will  surely  guide  the  missile  until  impact  and  if  it  is  a  miss  he  will  fire  again.  If  it 
is  a  hit  and  the  gunner  wishes  to  switch  after  a  hit,  tactic  3  should  be  used. 

Tactic  3:  The  gunner  temporarily  disengages  the  target  and  selects  a  more  threatening  target  if  one 
is  available. 


Table  17.  Switching  Logic  for  Simple  Missiles 


Tactic 

Condition 

Event 

.\ction 

1 

K-kill 

Impact 

Disengage  target  forever  and 

MicF-kill 

Impact 

select  new  target. 

Schedule  a  late  kill 
in  t  seconds. 

Also  set  a  flag  to  switch  after 

n„  more  shots. 

M 

F-kiil  -t- 

LateKl 

sec 

M&F-kill,  and 

Fire 

select  new  target. 

Disengage  target  forever  and 

shots 

select  new  target 

2* 

(Don't  use) 

3* 

Fired 

Impact 

Di.sengage  target  for  now  and 

fi,  rds 

select  a  new  target. 

(Since  msl  is  guided  to  impact 
switching  cannot  occur  until  then) 

*  The  logic  of  tactic  1  is  used  for  permanently  disengaging  a  target. 

Multi-Target  Missile  Systems.  Suppose  a  multi-missile  can  handle  4  targets  at  a  time.  It  selects 
the  first  target  and  fires  at  it,  then  it  selects  a  second  target  and  fires  at  it  while  it  automatically  guides  the 
first  missile  to  impact.  It  fires  at  the  second  target,  then  selects  a  third  target  meanwhile  guiding  perhaps 
two  mi.ssiles.  The  fourth  target  is  selected  and  fired  upon  and  now  if  it  is  guiding  four  missiles,  it  cannot 
switch  to  a  fifth  target  after  firing  because  all  the  guidance  'circuits'  are  busy  and  it  must  wait  until  one  of 
the  missiles  impact  and  frees  up  guidance  'circuits'.  Thus  the  first  select  is  triggered  by  a  detection,  the 
second,  third,  and  fourth  by  a  fire  event,  and  the  filth  by  an  impact  event.  This  is  discu.ssed  below  and 
summarized  in  table  18, 
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Tactic  1:  Do  not  use  this  tactic.  This  kind  of  system  selects  a  new  target  for  every  missile.  If  the 
target  is  known  to  be  dead,  it  will  not  be  reselected. 

Tactic  2:  Don’t  use  this  tactic.  Switching  after  firing  doesn’t  make  much  sense  for  the  simple  mis¬ 
sile  system.  The  gunner  will  surely  guide  the  missile  until  impact  and  if  it  is  a  miss  he  will  fire  again.  If  it 
is  a  hit  and  the  gunner  wishes  to  switch  after  a  hit,  tactic  3  should  be  used. 

Tactic  3;  This  is  the  appropriate  tactic;  select  a  new  target  after  each  fire  event  if  not  loaded  with 
targets,  otherwise  switch  at  impact.  Disengage  each  target  at  impact. 

Table  18  Switching  Logic  for  Multi-Target  Missile  Systems 


Tactic 

Condition 

Event 

Action 

1 

Don’t  use 

2* 

Don’t  use 

3* 

Fired 

rds 

Impact 

Disengage  target  for  now  and 
select  a  new  target. 

(Since  msl  is  guided  to  impact 
switching  cannot  occur  until  then) 

*  should  be  set  to  1.  A  target  that  is  known  to  be  dead  (K-killed)  will  never  be  reselected.  Suppose 
the  system  can  handle  -4  targets  at  a  time.  If  it  is  currently  engaging  less  than  1  it  is  not  loaded:  it  can 
handle  more  targets.  At  fire  time,  if  it  is  not  loaded  with  targets,  it  then  selects  another  target.  If  it  is 
loaded  at  fire  time,  it  waits  until  one  of  the  missiles  impacts  before  selecting  another  target. 


10.4  Key  Disengagement  Variables.  At  various  places  in  the  program  the  code  must  find  the 
answer  to  certain  key  questions.  The  variables  containing  the  answers  and  the  key  questions  are; 


VARIABLE 

QUESTION 

busy(i) 

Is  i  too  busy  to  select  a  new  target? 

nrtgt(i) 

What’s  firer  i’s  latest  target? 

fot(i,j) 

Is  firer  i  engaging  target  j? 

mot(i,j) 

Does  firer  i  have  a  missile  enroute  to  target  j? 

loaded 

Are  firer  i’s  guidance  channels  full?  (missile  firers) 
Is  firer  i  engaging  a  target  now?  (gun  systems) 

empty(i) 

Is  firer  i’s  upraised  missile  pod  empty?  (missiles) 

Is  firer  i  out  of  ammo?  (guns  or  missiles) 

The  table  below  tells  which  routines  set,  unset,  or  use  certain  key  variables.  A  dash  means  the  vari¬ 
able  is  not  mentioned.  Roman  font  means  this  is  the  normal  place  to  set  or  unset  the  variable.  Such  set¬ 
tings  are  clear  and  well  understood.  Italic  indicates  an  abnormal  setting.  These  settings  are  a  mystery. 

The  routines  in  the  first  column  are  divided  into  three  groups.  The  first  routine  init  unsets  the  vari¬ 
ables  at  the  beginning  of  each  engagement.  The  second  set  of  routines,  selecs  through  reload  are  the  nor¬ 
mal  firing  sequence  routines.  The  last  set  of  routines,  newtgt  through  vansmk  handle  the  firer’s  activi¬ 
ties  when  the  target  dies  or  vanishes. 


busy 

nrtgt 

lot 

mot 

loaded 

(local) 

empty 

Init 

unset 

unset 

unset 

unset 

unset 

Selecs 

set 

- 

- 

- 

- 

Select 

unset 

set 

set 

- 

- 

- 

Fire 

unset 

- 

- 

set 

- 

- 

-Frdmsl 

- 

- 

unset 

- 

- 

set 

-Frdssg 

unset 

- 

- 

- 

- 

set 

Impact 

- 

unset 

unset 

unset 

- 

- 

-Diseng 

- 

unset 

unset 

- 

- 

- 

—Frdmsl 

Reload 

unset 

unset 

Newtgt 

unset 

unset 

unset 

- 

- 

set 

.Abort 

- 

- 

- 

unset 

- 

- 

Damagf 

- 

unset 

un.set 

- 

- 

- 

Vanter 

- 

unset 

unset 

- 

- 

- 

Vansmk 

unset 

- 

- 

- 

- 

- 

Below  is  a  discussion  of  each  variable  and  why  e.ach  routine  gives  it  the  value  it  does.  In  the  discus¬ 
sion,  the  subscript  i  is  the  ID  of  a  firer, 'searcher,  j  is  the  ID  of  the  target,  and  k  is  the  ID  of  the  target’s 
target. 

Busy  Tells  whether  the  firer  is  too  busy  to  select  a  new  target.  It's  purpose  is  to  inhibit  selection  of  a 
second  target  from  the  time  it  starts  to  .select  a  first  target  until  it  fires  on  that  first  target. 
(The  variables  loaded  and  empty  inhibit  .selection  for  other  re;isons,) 

Init  When  the  game  begins,  i  is  not  busy  with  a  target,  so  busy(i)=. false. 


Selecs 
Select 
Fire 
F  rdssg 


Newtgt 

Vansmk 


Nrtgt 

Init 

Select 

Impact 

Diseng 

Reload 


Newtgt 

Damagf 

\’anter 


Fot 

Init 
Select 
F  rdmsi 


Impact 


Diseng 

Newtgt 

Damagf 

Winter 

Note 

Mot 

Init 

Fire 

Impact 

Abort 


When  i  begins  to  select  a  target,  i  is  busy  selecting,  so  busy(i)=.true. 

At  the  end  of  selection,  if  i  has  no  targets,  i  is  no  longer  busy  with  a  target,  so  busy(i)=. false. 

If  i  did  select  a  target,  then  when  i  fires  at  it,  i  is  no  longer  busy,  so  busy(i)=. false. 

Resetting  busy  is  redundant  since  it  was  just  reset  in  fire.  Anyway,  here’s  the  scenario.  The 
firer  is  a  gun  system  that  still  has  ammo.  It  disengages  after  firing  nrpt  rounds  at  the  target 
and  it’s  done  just  that. 

Firer  i  has  selected  target  j  but  hasn’t  yet  fired  on  it.  Either  target  j  dies  or  goes  behind  ter¬ 
rain,  so  newtgt  is  called. 

Firer  i  has  selected  target  j  but  hasn’t  yet  fired  on  it.  Now  smoke  blocks  the  line  of  sight 
between  i  and  j.  Busy  must  be  reset  so  firer  i  can  select  a  new  target.  The  code  is:  if 
(busy(i).and.nrtgt(i).eq.j)  busy (i)=. false. 

It  is  a  vector  containing  the  ID  of  the  latest  target  for  each  firer.  It  contains  information  simi¬ 
lar  to  that  in  fot. 

At  the  beginning  of  the  engagement,  firer  i  has  no  target,  so  prtgt(i)=0. 

When  i  selects  target  j,  then  nrtgt(i)=j. 

Firer  i  is  a  gun  system.  Target  j  is  a  false  target  or  firer  i  switches  targets  on  a  hit  or  target  j 
is  beyond  dkm.  If  any  of  these  are  true,  firer  i  will  disengage. 

This  is  where  a  single  firer  normally  disengages  a  single  target. 

When  reload  is  complete,  the  firer  selects  a  target.  .Any  prior  target  is  discarded  by  resetting 
nrtgt(i)=0.  Note  that  reload  is  scheduled  by  frdmsl  and  by  newtgt.  .After  the  latter 
schedules  reload  it  also  resets  nrtgt{i).  This  is  redundant. 

Firer  i's  target  has  died  or  vanished.  The  code  discards  i’s  target  by  resetting  nrtgt(i)=0. 
System  j  is  a  target  that  has  just  been  F-killed.  It  no  longer  has  a  target  of  its  own.  so  the  rou¬ 
tine  sets  nrtgt(j)=0. 

System  j  is  an  attacker  that  has  moved  behind  terrain  or  a  system  that  has  popped  down  to 
reload.  It  discards  its  target,  so  nrtgt(j)=0.  Note  When  systems  are  F-killed  and  then  hide, 
vanter  is  also  called.  Nrtgt  is  already  reset,  so  resetting  it  here  is  redundant,  but  that’s  ok. 

-A  matrix  telling  whether  a  firer  is  engaging  a  target.  It  contains  information  similar  to  that  in 

nrtgt. 

.At  the  beginning  of  the  engagment,  no  firer  is  engaging  any  target,  so  fot(i.j)  =  false. 

When  i  selects  a  target  j,  the  fot(i,j)=.true. 

Missile  system  i  is  ready  to  fire  another  missile  system.  It's  firing  policy  is  to  fire  a  fixed 
number  of  rounds  at  the  target  and  then  switch  targets.  It's  done  that  and  is  ready  to  switch 
targets.  .As  part  of  dropping  target  j,  the  code  resets  fot(i.j )=. false. 

Here's  the  scenario.  Firer  i  is  .a  gun  system.  Target  j  is  a  false  target  or  firer  i  switches  targets 
on  a  hit  or  target  j  is  beyond  1km.  If  any  of  these  are  true,  firer  i  will  disengage. 

Firer  i  is  disengaging  target  j.  so  it  resets  fot(i.j)=. false. 

Firer  i  is  disengaging  target  j,  so  it  resets  fot(i.j)=.fal,se. 

When  a  .system  j  is  F-killed,  it  no  longer  has  a  target.  That's  why  fot(j.k)  is  set  to  0  for  all  foes 
k.  ' 

System  j  is  an  attacker  that  has  moved  behind  terrain  or  a  system  that  fi-as  popped  down  to 
reload.  It  discards  all  its  targets,  .so  fot(j,k)=.trtie.  for  all  foes  k. 

When  systems  are  F-killed  and  then  hide,  vanter  is  also  called,  fot  is  alre.ady  reset,  so  reset¬ 
ting  it  here  is  redundant,  btit  that’s  ok. 

.An  array  that  tells  which  firers  have  a  missile  in  Hight  to  which  targets. 

When  the  game  begins,  firer  i  has  no  missiles  enroiite  to  it.  so  mot(i,j)=. false. 

When  i  fires  a  missile  at  j,  mot(i.j)=.true. 

The  missile  is  no  longer  enroiite,  so  mot(i.j)=. false. 

Ifjd  ies  or  disappears  the  missile  is  aborted,  so  mot(i.j)  =  . false. 


107 


Loaded  In  impact,  newtgt,  and  selecs  it  tells  whetuer  all  of  a  missile  system’s  guidance  channels  are 
loaded.  In  selecs  it  tells  whether  a  gun  system  has  a  target  or  not.  Loaded  is  similar  to  busy 
in  that  it  inhibits  the  selection  of  a  new  target. 

Empty  Tells  whether  the  current  missile  pod  is  empty  or  not.  Sometimes  tells  when  the  system  is  out 
of  ammo. 

Init  When  the  game  begins,  the  pod  is  not  empty,  so  empty(I)=. false. 

F rdmsl  During  the  course  of  firing,  it  may  become  empty. 

F rdssg  Gun  system  i  is  out  of  ammo.  Reset  empty(i)=.true. 

Reload  At  the  end  of  reload,  the  pod  is  not  empty,  so  empty(I)=. false. 

Newtgt  The  target  died  or  vanished.  Firer  i  was  engaging  it,  so  the  code  checks  to  see  if  the  current 
missile  pod  is  empty  and  records  whether  it  is  by  setting  empty(i)=.true. 


10.5  Diseng:  Attempt  to  Disengage  1  Firer  from  1  Target.  There  are  two  circumstances  in 
the  model  where  a  single  firer  disengages  a  single  target.  When  a  round  impacts  the  firer  may  choose  to 
disengage.  When  smoke  breaks  line  of  sight,  either  or  both  of  the  parties  involved  will  disengage  if  they 
were  engaged.  Diseng  handles  these  two  cases. 

The  first  step  is  to  find  whether  the  firer  is  actually  engaging  the  target.  If  not,  diseng  does  nothing. 
If  the  firer  is  engaging  the  target  diseng  branches  depending  on  whether  it  is  firing  a  gun  or  missile. 

If  it’s  a  gun  system,  the  following  steps  are  taken: 

1.  If  the  firer  is  about  to  fire  at  a  real  target,  the  fire  event  is  canceled  and  it’s  disengaged  from  it. 

2.  If  the  firer  has  ammo  it  begins  to  select  a  new  target. 

3.  If  it  has  no  ammo  but  has  mobility  and  is  a  halt-to-fire  system  it  starts  to  accelerate. 

In  any  case,  the  number  of  rounds  on  target  is  reset  to  zero  and  the  ID  of  the  firer’s  target  is  reset  to  zero. 

If  it’s  a  missile  system,  the  following  occurs: 

1.  The  code  may  decrement  the  number  of  guidance  channels  the  firer  has  busy. 

2.  If  the  target  is  a  real  target  (not  a  false  one),  and  the  firer  is  about  to  fire  on  the  target,  the  fire  event 

is  canceled  and  the  firer  is  disengaged  from  the  target.  If  the  calling  event  is  impact  (on  false  target) 
the  firer  reselects. 

3.  The  code  may  call  frdmsl  to  start  on  a  new  target. 

Finally,  whether  it’s  a  gun  or  missile,  if  the  firer  was  engaging  this  target,  the  code  checks  to  see  if 
search  is  off.  If  it’s  off,  it  gets  turned  back  on. 


CODE 

t 

I 

it 

drop 

take 

mytgt 

m 

n 

havamo 

nrd(I) 

nrds(m) 

inbrst 

nrpb(m) 

nrib(l) 

on  tgt 

kind 

fot(i,j) 

thuman 

nrot(I) 


_ COMMENT _ 

Time  (sec). 

ID  of  firer. 

ID  of  target. 

True  IFF  target  should  be  dropped  (logical). 

True  IFF  new  target  should  be  selected  (logical). 

ID  of  firer’s  actual  target.  ?? 

Side  of  firer  (l=Blue,  2=Red). 

Side  of  target  (l=Blue.  2=Red). 

True  IFF  firer  has  ammo,  (logical) 

Number  of  rounds  fired  by  firer. 

Number  of  rounds  firers  on  side  m  start  with. 

True  IFF  a  burst  firer  is  in  the  middle  of  a  burst,  (logical) 

Number  of  rounds  in  a  burst.  If  <  2  it  is  a  single  shot  gun. 

Number  of  rounds  fired  in  the  burst  so  far. 

True  IFF  firer  is  engaging  this  target,  (logical) 

Kind  of  round.  (1=KE.  2=HEAT.  3  unused.  ■4=missile.  .')=top  attac 
True  IFF  firer  is  about  to  fire  at  this  target,  (logical) 

Random  time  for  firer  to  select  a  target  (sec). 

Number  of  rounds  firer  has  fired  at  target  since  engaging  it. 
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SUBROUTINE  DIS  E.N'G  (t,  I,  it, drop, lake) 
c  7  Diseng:  allempl  to  disengage  1  firer  from  1  target, 
c  Diseng  is  called  by  impact  if  firer  condition  warrants, 
c  When  I  include  guns,  other  routines  may  call  it. 
include  'common. h' 

logical  in  brst,  hav  arno,  on  tgt.  drop,  take,  cango 
formal  (f8,‘.Mx,a'4,i.'i,'  dis-eng.s  '.al.i;!,'.’Ox,'#tgts=’,i‘J) 


c  Set  useful  local  variables 
my  tgl  -  nrtgt(l) 
m  =-  army) I ) 
n  —  3-m 

hav  amo  nrd|I).ll.nrds|m) 
inbrst  =  nrpb(m)  gt.l  .:in'l.  (().ne.mod|nrib(l). 
1  nrpb(mll) 

if  (il.eii.EbS  TUT)  on  tgt  =  true, 
if  (it, ne. FI, S  TGT)  on  tgt  =fot(I.it|  or. 
|kindrd(m).cci.  1  :ind  nn>i|l.it )) 


I  O'.) 


if  (trace)  print  ■  diseng' 


1 


IF  (on  tgtl  THEN 
Firer  on  this  target 
kind  »  kindrd(m) 

IF  (kind.Ie.2  .or.  kind.eq.5)  THEN 
IF  (nrpb(m).le.l)THEN 

Single  shot  gun  system  or  STAFF  fire  &  forget  system. 

IF  (it.ne.FLS  TGT)  THEN 
if  (fot(I,it))  call  cancel  (I, ’fire  ’,it) 
fot(I,it)  —  .false. 

END  IF 

hav  amo  —  nrd(I).lt.nrds(m) 

IF  (hav  amo)  Th&N 
thuman  ••  2.*exp(rann(0.5)) 
call  selecs(t, I, thuman) 

ELSEIF  (can  go(I,t).and.ishtfs(m).gt.O)  THEN 
Firer  moves  on. 
if(histry)print  3,  t,color(m),I, 

1  color(n),it,nchan(I) 

call  skedul(t,I,'accel  ’.NULL) 

END  IF 
nrot(I)  —  0 
nrtgt(I)  -  0 
ELSE 

Burst  fire  gun  system. 

print  *,’D1SENG:  Not  implemented  for  burst  fire  guns.’ 
STOP 
END  IF 

ELSEIF(kind.eq.4)THEN 
Guided  missile  system, 
if  (drop)  nchan(I)  —  nchan(I)-l 
IF  (it.ne.FLS  TGT)  THEN 
IF  (fot(I,it))  THEN 
call  cancel(I,’fire  ’,it) 
fot(I,it)  —  .false. 

END  IF 
END  IF 

if(histry)print  3,  t,color(m),I, 

1  color(n),it,nchan(I) 

Firer  attempts  to  select  a  new  target 
IF  (take)  THEN 
call  frdmsl(t,I,it,m) 

The  firer  begins  to  select  a  new  target  right  now  and 
finishes  the  selection  in  a  few  seconds. 

ENDIF 

ENDIF 

ENDIF 

IF  (.not.repeat)THEN 
repeat  —  .true. 

call  skedul  (t+. 01,0, ’search'. NULL) 

ENDIF 

if  (trace)  print  •,’<diseng’ 

END 


10.6  Newlgt:  Redirect  All  Foe  to  a  New  Target.  When  a  target  is  obviously  killed  or  disap¬ 
pears  every  foe  engaging  the  target  disengages  it  and  attempts  to  engage  a  new  target.  In  Tank  Wars  this 
occurs  when  the  target  becomes  K-killed  or  I-killed.  It  also  occurs  on  a  hide  or  vanish  due  to  terrain. 

First  the  code  finds  the  first  and  last  foe  of  this  target,  then  it  sets  a  few  variables  for  later  use. 
Then  it  checks  all  the  foe  to  see  if  they  are  engaging  the  target.  If  not,  nothing  happens.  If  so,  the  code 
branches  for  gun  &  missiles. 

Gun  systems.  If  the  gun  fires  bursts,  the  program  stops  because  this  branch  is  not  developed.  If 
it’s  single  shot,  the  code  does  the  following: 

1.  Cancel  foe’s  firing  at  target. 

2.  Permit  foe  to  select  new  target  (if  this  was  current  one). 

3.  Delete  foe’s  current  target  (if  this  was  current  one). 

4.  Delete  current  target  of  foe. 

5.  Reset  #  rds  fired  at  current  target  to  zero. 

6. 

IF  (foe  has  ammo)  THEN 
foe  starts  selection 

ELSEIF  (foe  can  go  and  is  halt-to-fire)  THEN 
schedule  acceleration 

ENDIF 

Missile  systems.  The  code  does  the  following; 

1.  Cancel  foe’s  firing  at  target  (if  fot). 

2.  If  (foe  has  msl  enroute  to  target)  abort  it 

3.  Some  other  stuff  under  special  conditions. 


CODE 

t 

I 

it 

m 

n 

havamo 

nrd(l) 

nrds(m) 

nrpb(m) 

kind 

fot(i.J) 

thuman 

nrot(I) 


_ COMMENT _ 

Time  (sec). 

ID  of  firer. 

ID  of  target. 

Side  of  firer  (l=Blue.  2=Red). 

Side  of  target  (l=Blue.  2=Red). 

True  IFF  firer  has  ammo,  (logical) 

Number  of  rounds  fired  by  firer. 

Number  of  rounds  firers  on  side  m  start  with. 

Number  of  rounds  in  a  burst.  If  <.  2  it  is  a  single  shot  gun. 

Kind  of  round.  (1  =  KE,  2=HE.\T.  3  unused.  4=missile.  .j=top  attac 
True  IFF  firer  is  about  to  fire  at  this  target,  (logical) 

Random  time  for  firer  to  select  a  target  (sec). 

Number  of  rounds  firer  has  fired  at  target  since  engaging  it. 
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V7  2 

■SUBROUTINE  NEWTCT  (t.  I,  it)  c 

.3  .Nfwlgt:  redirect  all  'att,ackers'  of  it  to  a  new  target, 
c  .N'ewtgt  called  for  non-false  tgts  only  and  only  if  it  condition  c 
c  warrants  it.  It  should  only  he  called  if  tgt  is  V'-killeii. 
c  vanishes,  or  hide.,. 

c  M.ayhe  it  shouhi  be  called  if  the  tgt  is  l-kilUd  by  a  giin  system, 
include  'common. h' 
integer  first 

logical  loaded,  hav  amo.  cango 
I  formatlfS.'J.l.v.al.i.d,'  di.s-engs  ',al.i.3.’JI)x,'#igt.s='.i2) 


formatlfS.i.  lx.  at.  i3,  ’  begins  to  reload,') 

if  (trace)  print  '•  newtgt' 

Find  first  and  last  'attacker' 
first  =  1 

if  (I  gt  nblu!  fir-st  =  nblm- 1 
la-st  =  nbhi 

if  (I  gt  nblu)  la.'t  =  nblu  +  nred 
III  =  army!  fir-t  | 
n  —  .'bm 

kind  =  kindrdlml 


III 


nrpb2  —  nrpb(m) 

DO  20  j— first,  last 

IF  ((mot(j,it)  .or.  fotQ.it))  .and.  life(j).lt.FKlLL)  THEN 
IF  (kind.le.2  .or.  kind.eq.S)  THEN 
c  Single  shot  gun  system  or  other  fire  &  forget  system. 

IF  (nrpb(m).le.l)THEN 
c  Single  shot  gun  system. 

call  cancelfj.’fire  ’,it) 
if  fnrtgtin.eq.itl  busy(i)  —  .false, 
if  (nrtgt(j).eq.iu  nrtgty)  -  0 
hav  amo  —  nrd(j)dt.nrds(m) 

IF  (hav  amo)  TifeN 
thuman  —  2.*exp(rann(0.5)) 
call  selecs(t,j, thuman) 

ELSEIF  (can  go(i,t).and.i3htfs(m).gt.O)  THEN 
c  Move  out 

call  skedul(t,j,’accel  ’.NULL) 

ENDIF 

nrot(j)  —  0 

fot(j,it)  —  .false, 

if  (histry)  print  1,  t,  color(m),  j, 

1  color(n),  it,  nchan(j) 

ELSE 

c  Burst  fire  gun. 

print  ‘.'NEWTGT:  Not  implemented  for  burst  fire.’ 
STOP 
ENDIF 

ELSEIF  (kind. eq.4)  THEN 
c  Guided  missile  branch. 

if  (fot(j,it))  call  cancel(j,'fire  ',it) 
if  (mot(j,it))  call  abort(t,j,it) 
loaded  nchan(jl  .eq.  nchans(m) 

IF  ((.not.emptym  and.  mot(j,it)  and.  loaded)  or. 

1  (.not.emptyQl  .and.  fot(j,it)))  THEN 

IF  ((mod(nrd(j),nipods(m)j  .gt.  0)  .or. 

1  fot(j.it))  THEN 

c  More  rds  in  pod 

IF  (fol(j,it))THEN 
call  cancel(j, 'select', NTTiL) 
busy(j)  —  .false. 
fot(j,it)  —  .false. 

ENDIF 

C  if  (it.ne.FLS  TGT)  fot(j,it)  =  false, 

thuman  —  2.0*exp(rann(0.5)) 
call  selecs(t,j, thuman) 

ELSE 

c  Treat  empty  missile  pod 

empty(j)  «■  .true, 
call  cancel(j,'fire  ',it) 
call  cancel(j, 'select', NULL) 
busy(j)  —  .false. 
nrot(j)  —  0 

c  shud  htf  that  is  slowing  to  engage  speed  up  now? 

call  skedul  (t+trelod(m),j, 'reload', .NULL) 
if  (histry)  print  2,t,color(m),j 
ENDIF 
ENDIF 

nchan(i)  —  nchan(j)  -1 
nrtgt(j)  -  0 
fotlj.it)  —  .false. 

ENDIF 

ENDIF 

if  (see(j,it))  ndet(j)  —  ndetlj)  -  1 
see(j,it)  =  .false. 

20  CONTINLD 

IF  (.not. repeat)  THEN 
repeat  —  .true. 

call  skedul  (t+. 01,0, 'search  . NULL) 

ENDIF 

if  (trace)  print  *,'<  newtgt' 

E^D 
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10.7  Abort:  Abort  a  Missile  in  Flight.  This  routine  simulates  the  abortion  of  a  missile  in  flight. 
This  happens  when  the  target  or  firer  disappears  behind  terrain  or  when  either  is  killed.  In  any  of  these 
cases,  the  code  cancels  the  impact  event  for  the  missile.  If  the  launch  vehicle  is  in  a  defensive  position, 
alive,  and  has  an  empty  missile  pod,  it  pops  down  to  bring  up  another  missile  pod. 

Relevant  variables  are: 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  launch  vehicle. 

it 

ID  of  target. 

m 

Side  of  launch  vehicle  (1  for  Blue,  2  for  Red). 

n 

Side  of  target. 

k 

Guidance  channel  number. 

chanel(m,I,k) 

ID  of  missile  in  kth  guidance  channel. 

msl 

ID  of  missile  and  location  of  its  attributes  in  the  a-array. 

msltgt 

ID  of  missile’s  target. 

kshot(m,3) 

Count  of  missiles  aborted  for  side  m. 

mot(I,it) 

Set  ‘I  have  a  missile  on  (target)  it’  to  false. 

a(msl) 

Storage  area  for  attributes  of  missile.  Release  it. 

defndr 

True  IFF  I  (firer)  am  in  a  defensive  posture. 

empty(I) 

True  IFF  pod  is  empty. 

The  code  loops  through  all  guidance  channels  and  finds  the  ID  of  the  missile  assigned  to  the  channel. 
From  the  ID,  it  finds  which  target  the  missile  is  approaching.  If  the  target  is  the  right  one.  the  code  aborts 
that  missile. 

In  aborting  the  missile,  the  code  tallies  another  abort  for  the  side  the  launch  vehicle  is  on  and  cancels 
missile  impact.  Then  it  frees  the  guidance  channel.  If  the  target  is  not  a  false  target,  it  clears  the  'missile 


on  target’  record.  Next,  it  releases  the  storage  area 
determines  whether  the  firing  vehicle  is  in  a  defensive 
brings  up  another  missile  pod. 


c  V7.t 

SUBROUTINE  .-VBORT  H.I.it) 
c  6  Abort:  abort  msl  from  I  to  it  (to  ati  its  if  It—Oj 
include  'common. h’ 
logical  defndr 

1  rormat(f8.2.1x.at.i3.’  msl  for  at. i3.'  aborted.' ) 

2  format  (',\BORT:  I.it,i,chanel-',-li3) 

3  format  ('.\BORT:  msl  approaching  it',i3) 

r 

if  (trace)  print  *,'>abort' 
m  —  armyll) 
it  —  3-m 
DO  20  k-1.5 

c  Check  all  5  missile  pointers  for  this  firer 
msl  —  chanel(m,I,k) 
if  (keym(  I9|.gt.O)  print  '2,  I.  it,  k,  msl 
IF  (msl. gt.O)  THEN 

c  Missile  found  (pointer  is  non-zero) 
msl  tgt  -•  a(msl-fl) 
if  (keym(19).gt.O)  print  3,  msl  tgt 
IF  (it.eq.O  or.  it.eq.msi  tgt)  THEN 
c  .Abort  this  missile 

kshot(m.3)  —  k3hot(m.3)-t-l 
call  cancel  (msl. 'impact',  NULL) 
chanellm.LM  ”  0 

if  (msl  tgt.ne.FLS  TGT)  mollLmsl  tgt)  =  .false, 
c  Release  area  for  storage  of  missile  data 

a(msl)  -  -a(msll 
if  (hislry)  print  I .t, color! m  1,1, 
color(it).msl  tgt 

Pop-dcwn  to  reload  if  'iefeprlpr,  pod  erii(.:y,  t-  fully  alive 


containing  the  attributes  of  the  missile.  Finally,  it 
posture  and  needs  to  pop  down  behind  cover  while  it 


defndr  —  (scene. eq.B.ATT.AK  and.  m.eq.RED)  or. 
1  (scene, eq.R.ATT.AK  .and.  m.eq.BLU) 

if  (defndr,and.empty(I).and.(life(l).le..ALIVE)) 

’2  call  skedullt.l.'popdn  ’.NULL) 

END  IF 
END  IF 

•20  CONTINI'E 

if  (tr.ace)  print  abort' 

END 
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INTENTIONALLY  LEFT  BLANK 


11.  MOTION  ROUTINES 

The  motion  routines  handle  initial  deployment  of  the  tanks  on  each  side,  the  significant  motion 
events,  and  provide  motion  information  to  other  routines. 
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11.1  Deploy:  Place  Combatants  at  Start  of  Engagement.  Deploy  sets  the  exposure,  position, 
and  motion  of  the  tanks  at  the  beginning  of  each  enragement. 

Opening  Range.  The  initial  separation  between  forces  may  be  thought  of  as  the  distance  between 
the  forces  when  they  are  first  able  to  see  each  other  because  one  of  the  forces  just  came  from  behind  terrain 
or  the  fog  just  lifted.  Naturally,  the  initial  separation  can  vary  greatly  due  to  the  terrain,  weather,  or  tac¬ 
tical  obscurants. 

1  2 

Peterson  ’  analyzed  World  War  II  data  to  find  the  distribution  of  ranges  at  which  tanks  were  killed 
in  Northern  Europe  and  a  later  study  (The  NATO  Range  Study)  in  the  sixties  also  analyzed  the  ranges  at 
which  tanks  might  be  killed  in  future  combat.  (This  latter  study  is  apparently  unpublished  and  is 
classified.)  While  these  studies  indicate  the  ranges  at  which  tanks  are  killed,  they  do  not  give  the  analyst 
or  simulation  builder  what  he  needs;  the  distributions  of  opening  ranges  and  the  motion  of  the  tanks  dur¬ 
ing  combat.  The  user  should  consult  these  references  or  use  good  engineering  judgement  and  give  the 
model  the  appropriate  opening  ranges. 

The  code  breaks  into  three  divisions.  First,  it  initializes  the  Blue  tanks,  then  the  Red,  and  finally,  it 
calculates  some  values  for  sinusoidal  motion. 

To  initialize  the  Blue  tanks,  the  code  sets  the  spacing  between  the  tanks  to  100  meters.  Realistic 
values  are  70  to  150  meters.  Then  it  finds  a  point  South  of  the  East-West  axis  as  a  base  for  placing  the 
tanks. 

Then  the  DO  20  loop  assigns  values  to  each  of  the  Blue  tanks.  The  following  chart  explains  these 
assigned  values. 


CODE 

COMMENT 

army(I)  =  BLU 

Tank  I  is  associated  with  the  Blue  side. 

knceal(I)  =  FE 

Tentatively  made  Fully  Exposed. 

scene. eq.RATT.\I\ 

True  if  Blue  is  in  a  defensive  posture. 

knceal(I)  =  HD 

Exposure  changed  to  Hull  Defilade. 

11 

o 

b 

Time  position  of  tank  I  last  updated. 

x0(l)  =  0.0 

Tank  I  placed  on  the  y  axis. 

y0(i)  =  sp*i-|-c 

Tank  1  offset  along  the  y  axis  from  previous  tank. 

vxO(i)  =  0 

Tentatively  set  to  zero  speed. 

vxO(I)  =  speed(BLU) 

Reset  to  combat  speed  if  Blue  is  attticking. 

motion(l) 

Tentatively  set  to  stationary 

motion(I)  =  \L\XV'EL 

Reset  to  moving  at  maximum  combat  speed  if  attacking. 

nwaves.gt.l 

Test  to  see  if  Blue  fights  multiple  waves  of  Reds. 

nrd(i)  =  nused(neval-l-l) 

Reset  number  of  rounds  fired  by  ith  tank. 

neval  =  neval+nblu 

Tallies  #  of  Blues  taken  from  the  regrouping  pool. 

The  DO  30  loop  performs  similar  assignments  for  the  Red  tanks.  The  major  difference  is  that  Red 
survivors  are  not  regrouped  to  fight  subsequent  waves  of  Blue  tanks,  so  the  last  two  lines  of  the  DO  20 
loop  have  no  equivalent  in  the  Red  DO  .30  loop. 

Lateral  motion  values  found  at  the  end  may  be  ignored  in  later  routines.  If  so  this  portion  can  be 
deleted.  Nobody’s  ever  used  it  anyway. 


c  V7..S 

SL  BROUTINE  DEPLOY 

c  D'ploy:  s<l  initial  exposure,  position,  and  motion, 
include  'common. h' 

.-ommon  /inpwav/  keyd|.'>).  nwaves,  neval.  nusedl.tOOO) 

if  (trace)  print*,  '  ;>deploy' 
c  Initialize  Blue  tanks. 


sp  -  100  0 

c  —  -sp'l  1+nblu)  'J.O 
DO  20  i»»l.nblu 
armyin  ”  BLl’ 
knceal(I)  —  EE 

if  (scene  eq.R,^TT.\K I  knceal(l)  =  flD 
toil)  -  0  0 
xOlI)  -  0  0 
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yO(I)  —  sp*i+c 
vxO(I)  -  0.0 

if  (scene.eq.BATT.\K)  vxO(l)  —  3peed(BLU) 
motion(I)  —  STATNY 
if  (scene. eq.BATTAK)  motion(I)  —  MAXVL 
if  (nwaves.gt.l)  nrd(i)  —  nused(neval+l) 
if  (nwaves.gt.l)  neval  —  neval+nblu 
20  CONTINUE 
c  Initialize  Red  tanks, 
sp  ••  100.0 

c  —  -sp*(l+nred)/2.0 
DO  30  j— l.nred 
I  —  nblu+j 
army(l)  —  RED 
knceal(l)  -  FE 

if  (scene.eq.BATTAK)  knceal(I)  —  HD 

tom  -  0.0 

xom  -  rgO 

yO(l)  -  sp‘j+c 

vxO(I)  —  0.0 

if  (scene. eq.RATTAK)  vxO(I)  —  -3peed(RED) 
motion(l)  —  STATNY 
if  (scene.eq.RATTAK)  motion(I)  —  MAXVL 
30  CONTINUE 
c  Hardwired  lateral  iiiutiun  values. 
accmax(BLU)  —  0.0 
accmax(RED)  —  0.0 
wvlth(BLU)  —  50. 
wvlth(RED)  —  50. 

ampi  BLU)  -  accmax(BLU)/(TWOPl*speed(BLU)/wvlth(BLUJ)**2 
ampl(RED)  -  accmax(RED)/(TWOPl*speed(REDVwvlth(RED))“2 
if  (trace)  print*,  '<deploy' 

ENT) 
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11.2  SlowUp:  Begin  Deceleration.  Slow  up  simulates  the  moment  when  a  moving  tank  begins 
to  slow  up.  If  the  tank  was  previously  moving,  the  code  records  the  tank  as  slowing  and  schedules  a  halt 
event. 


Slow  up  branches  to  one  of  4  branches  depending  on  the  previous  motion  of  the  tank.  Each  of  the 
branches  prints  a  line  appropriate  to  that  branch  if  the  program  is  printing  an  event  history.  If  the  tank 
was  already  slowing  or  stationary,  the  code  takes  the  first  or  second  branch  respectively  and  does  nothing 
beyond  possibly  printing  a  line  for  the  event  history.  If  the  tank  was  accelerating  or  at  cruise  speed,  the 
code  takes  the  third  or  fourth  branch  respectively. 

If  the  tank  was  accelerating,  the  third  branch  finds  the  position  and  velocity  of  the  tank  at  the  time 
it  begins  to  slow  down.  It  calls  path  to  generate  these  values.  Then  it  finds  the  time  required  to  stop 
using  the  following  equation: 

dt=  \v^\/decel 

Finally,  it  sets  motion  to  SLOWNG  (=2)  and  schedules  a  halt  in  dt  seconds. 

If  the  tank  was  at  cruise  speed,  the  code  executes  the  fourth  branch  which  is  similar  to  the  third 
branch. 


CODE 

NUTH 

COMMENT 

t 

t 

Time  (sec) 

I 

ID  of  tank. 

kindmv 

Motion  of  tank  (I=slowing.  2=stationary, 
3=accelerating,  4=cruising). 

n 

Side  of  tank  (l=Bl^ue,  2=Red). 

decel(n) 

d 

Deceleration 

vy 

Current  speed  (m/s). 

dt 

At  =  |uj/d 

Time  to  halt  from  acceleration  (sec). 

dt 

At  =  s/d 

Time  to  halt  from  cruise  speed  (sec). 

■  v:  4 

SLBROLTINE  SLOW  fP  (t.  1) 
c  8  Slow  up:  simulalf  tank  starting  to  slow  .|own 
includf  'common. h' 

1  formal  (f8.2. Ix.a4.i3.'  continues  to  slow  up,') 

3  formal  (fS.'i, Ix.a4,i3,'  would  slow  up  if  it  weren  "f. 

I  '  already  stopped.') 

3  formal  ire. 3. lx. ad, 13,'  brakes'. llx, '(was  accelerating)') 
1  format  (re. '3, lx, ad, 13,'  trakes',  1  Ix.'fwas  crui.sing)') 

if  (trace)  print  *,'  '’.slowup' 
kind  mv  —  molion(I) 
n  «  army  1 1) 

IF  (kind  mv.ei], SLOWNG)  1  HEN 
if( histrv Iprint  1.  t.  '’olorlnl,  I 
ELSEIF'lkind  mv  e.j  ST.XTN'l  )  THEN 
if(hisirv)print  3,  t.  i-olorlnl.  1 
ELSEIF  (kind  mv  eq..\C  ('FLG)  THEN 
if()iistry)print  3.  t,  '-olorlnl,  1 
':all  path  ( l.t. motion)  I), D.ll.x.y  ,vx.vy  | 

■Jt  =  abs(vy)  <iecel(n) 

motion(I)  —  SLOWNG 

call  skedul(t-t-dt,l,'halt  ',  NOLL) 

ELSEIF  (kind  mv  eq  .Vl.W'VLl  THEN 
if( histry (print  d,  t,  color(n|,  I 
■rail  path  ( I,t,motion( I),0  O.x.y .vx.vy ) 
v'hedule  halt  time 
■  It  —  speedi n  I  'lece|(  n ) 

'■all  skedullt-d'lt.l,  halt  ',  .Nt'LI.I 
motionll)  —  SLOWNG 
KN'DIF 

if  ltrace|  print  •  -dowiip' 

END 


ns 


11.3  Halt:  Simulate  a  Tank  Halting.  Halt  simulates  a  halt  event.  If  the  tank  is  a  halt-to-tire 
system,  halt  may  trigger  the  engagement  of  a  target. 

The  simulation  of  a  halt  is  simple,  but  the  consequences  of  the  event  are  more  complicated  than  in 
other  motion  routines.  First,  if  the  model  is  simulating  terrain  intervisibility  (invisb.eq.l),  any  vanish 
events  associated  with  the  tank  must  be  canceled.  Then  halt  calls  path  to  update  the  tank’s  position  and 
set  the  velocity  to  zero.  It  then  marks  the  tank  as  stationary. 

The  bulk  of  the  code  treats  the  halt-to-fire  system.  If  the  system  is  halt  to  fire  (ishtf(m)=l),  and  it 
can  shoot  (life(I)<FKILL),  and  it  has  ammo  (nrd(I).lt.nrds(m)),  then  the  branch  is  executed. 

Inside  the  branch,  the  code  finds  whether  the  firer  still  has  a  target.  (A  firer  ‘has  a  target’  if  it  has 
selected  a  target  from  among  1  or  more  it  is  aware  of.  This  continues  until  it  disengages  the  target.)  If  the 
target  is  a  false  target,  the  firer  still  has  a  target  if  it’s  not  in  full  defilade.  If  the  target  is  not  a  false  tar¬ 
get,  the  firer  still  has  a  target  if  line  of  sight  exists  between  the  firer  and  the  target. 

If  the  firer  has  a  target  the  code  schedules  a  fire  event,  otherwise  the  code  attempts  to  schedule  the 
firer  to  accelerate.  The  fire  event  occurs  after  a  delay  dt.  where: 

N|0.S| 

dt  =  tfC 

Where, 

dt  is  the  delay  time  (sec), 

t j  is  the  median  time  to  fire  rKe  first  round  (sec), 

^[0.5]  is  a  draw  from  "  .mal  distribution  with  a  —  0.5. 

But  wait,  dt  —  max(.01,(/<— H)  '  hat's  that  for?  The  code  indicates  that  this  is  a  first  round  being  fired  at 
the  target,  sets  the  numb  :  lounds  fired  in  a  burst  to  zero,  and  schedules  a  fire  event. 

If  the  target  ha-  disappeared,  the  code  schedules  an  immediate  acceleration  for  the  firer. 


CODE 

NL\TH 

COMMENT 

t 

t 

Time  (sec). 

I 

ID  of  tank. 

Ill 

Side  of  tank  (l=Blue.  2=Red). 

motion(i) 

Current  motion  of  tank. 

x.y 

Coordinates  of  tank  (m). 

vx,vy 

Velocity  of  tank  (m/s). 

ishfts(m) 

l=halt  to  fire  system.  2=fire  on  the  move. 

life(m) 

.'status  of  tank  (l=.-\LrV'E.  2=M-kille(|.  etc). 

nrd(I) 

Number  of  rounds  fired  by  tank. 

nrds(m) 

Number  of  rounds  at  start  of  engagement. 

nrtgt(I) 

ID  of  tank’s  target. 

knceal(I) 

Concealment  of  tank  (1=FD,  2=HD,  :5=FE). 

fot(i.j) 

True  iff  firer  i  is  on  target  j. 

tfirst(  m,nrg) 

^m.n 

Median  time  to  fire  first  round  for  side  m  an  nth  range  (sec). 

rann(0.5) 

N 

Draw  from  the  standard  normal  distribution  w  std  dev=0..5). 

dt 

At  =  i^e 

Time  to  fire  first  round  (s). 

prevrd 

l  =  lst  shot,  2=prev  rd  hit,  3=.sensed  miss.  l=lost  miss. 

nrib(I) 

Number  of  rounds  fired  in  burst. 

it 

ID  of  tank’s  target. 

c  V7.5 

SUBROUTINE  HALT  (t,  I) 
c  7  Halt:  simulate  tank  halting, 
include  'common. h' 
logical  cango,  threat 

1  format  (f8.2,lx,a4,i3,’ halts’, 12x,'(x—’,f8.1,’  y— ’,r8.r,)’) 
c 

if  (trace)  print  •,’>halt’ 
ir(invisb.eq.l)call  cancel  (I, 'vanish', NULL) 
m  —  army(l) 

call  path  (l,t,motion(l),0.0,x,y,vx,vy) 
if  (histrv)  print  1,  t,  color(m),  I,  x,  y 
motion(l)  —  STA'TSTY’ 

c  See  if  fire  is  a  halt-to-fire-system  and  can  still  shoot 
IF  (ishtfs(m).eq.l  .and. 

1  life(I).lt.FKELL  .and.  nrd(I).lt.nrds(m))  THEN 
c  This  is  a  halt-tofire  syrtem.  schedule  firing  if  target  is 
c  still  available. 

if  (nrtgt(I).eq.FLSTGT)  threat  —  knceal(I).ne.FD 
if  (nrtgt(l).gt.O)  threat  «•  fot(I,nrtgt(I)) 

IF  (threat)  THEN 
dt  —  tfirst(m,nrg)*exp(rann(0.5)) 
dl  —  amaxl(.01,at-3.0) 
prev  rd(I)  —  1 
nrib(I)  »  0 
it-nrtgt(I) 

call  skedul  (t+dt,  I,  'fire  ’,  it) 

ELSE 

c  Move  firer  because  it’s  target  has  vanished. 

i^ango(I,t))call  skedul  (t,  I,  'accel  ',  NULL) 

END  IF 

if  (trace)  print  *,’<halt’ 

c  Move  firer  if  Igt  vanished  may  be  redundant. 

END 
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11.4  Accel:  Begin  Acceleration.  Acceif  simulates  acceleration  of  the  tank.  Now  that  the  tank 
can  move,  it  can  vanish.  So  the  code  first  schedules  a  vanish  event.  Then  it  treats  acceleration,  depending 
on  the  previous  motion  of  the  tank.  If  the  tank  was  slowing  up  the  code  takes  the  first  branch.  In  this 
branch  it  may  print  a  line  for  the  event  history.  Then  it  calls  path  to  find  the  current  position  and  velo¬ 
city.  It  next  finds  the  time  to  reach  combat  cruise  speed  (dt): 


dt  =  {speed— \v^\)/aeeel 

Where, 

speed  is  the  combat  cruise  speed, 
is  the  current  velocity,  and 
accel  is  the  acceleration  of  the  tank. 

Finally,  motion  of  the  tank  is  set  to  accelerating. 

If  the  tank  was  halted  the  code  takes  the  second  branch.  This  branch  is  identical  to  the  first  branch, 
except  that  the  current  speed  is  zero. 

If  the  tank  was  already  accelerating  or  at  combat  cruise  velocity,  the  code  takes  the  third  or  fourth 
branch  and  does  nothing  except  perhaps  print  a  line  for  the  event  history. 


CODE 

MATH 

COMMENT 

t 

t 

Time  (sec). 

I 

ID  of  tank. 

life(I) 

1  if  .MvIVE,  2  if  M-killed,  etc 

invisb 

1  if  terrain,  2  if  smoke  causes  NLOS. 

knceal(I) 

1  if  FD.  2  if  HD,  3  if  FE. 

n 

Side  of  tank  (l=Blue,  2=Red). 

motion(I) 

l=Slowing,  2=stationary, 

3=accelerating,  4=cruising. 

x.y 

Coordinates  of  tank  (m). 

vx.vy 

Velocity  of  tank  (m/s). 

speed 

S 

Cruise  speed  (m/s). 

accel(i) 

a 

■Acceleration  for  side  m  (m/s'). 

dt 

At  =  (s— t')/o 

Time  to  reach  cruise  speed  from  current  velocity  (sec). 

dt 

At=v/a 

Time  to  reach  cruise  speed  from  halt  (sec). 

c  V7.4  if  (trace)  print  *.'<  accel' 

SUBROUTINE  .-tCCELF  (t,  I)  END 

c  9  .\ccelf:  simulate  tank  starting  to  accelerate, 
include  'common. h' 

1  format  (f8  ;2.1x,a^.i3,'  speed  up',9.\,a) 

0 

if  (trace)  print  *,'>accer 

ir(lire{I).ne.FKILL.and.invisb.er].l.and.knceal|n.ne.FD) 

1  call  skedul  (1,1, 'vanish', NULL) 
n  =  army(I) 

IF  (rnotion|I),eq.SLOWNG)  THEN 
if  (hislry)  print  1,  t,  colorin),  1,  '(was  slowing)' 
call  path(I,t,motion(l).O.O..x,y.v.x,vy ) 
dt  {speed(nFabs(vy))/accei(nl 
call  skedul  (t+dt,I,'ma.\vel',NL'LL) 
motion(I)  ■■  .\CCELG 
ELSEIF  (motion(I).eq.STATNY)  THEN 
if  (histry)  print  1,  t,  color(n).  I,  '(was  halted)' 
call  path(I.t,motion(I),O.O.x,y,vx,vy ) 
c  schedule  time  full  velocity  reached  (max  vel) 
dt  «■  speed(n|/accel(army(l)) 
call  skedullt+dl.I.'maxvel'.NULL) 
motion(I)  —  .\CCELG 
ELSEIF  (motion(I).eq.ACCELG)  THEN 
if  (histry)  print  I.  t,  color(n).  I,  '(was  spee.ling  up)' 

ELSEIF  (motion(l).eq..MAXVL)  THEN 
if  (histry)  print  1,  1.  cnlor(n|,  I.  '(is  cruising)' 

ENDIF 


11.5  MaxVel:  Simulate  Tank  Reaching  Combat  Cruise  Speed.  Max  vel  simulates  the  tank 
reaching  combat  cruise  speed.  The  routine  may  print  a  line  for  the  event  history.  Then  it  calls  path  to 
update  the  position  and  velocity  of  the  tank.  It  sets  motion  to  MAXVEL,  and  checks  to  see  if  the  firer  has 
a  target.  Then  the  code  calls  engage. 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  tank. 

motion(I) 

l=slowing,  2=halted,  3=accelerating,  4=cruising 

it 

ID  of  tank’s  target. 

c  V7.2 

SUBROUTINE  MAX  VEL(t,  I) 
c  6  Max  vel:  simulate  lank  reaching  cruise  speed, 
include  'common. h’ 

1  format  (f8.2,lx,a4,i3,'  at  full  speed.') 

c 

if  (trace)  print  *,'>maxver 
if  (histryl  print  1,  t,  color(army(I)),  I 
call  path(l,t,motion(l),0.0,x,y,vx,vy) 
motion(I)  ••  MAXVL 
it  »  nrtgt(I) 

IF  (it.eq.FLSTGT)  THEN 
call  engage(t,t,I,it) 

ELSEIF  (life(it).ll.IKILL)  THEN 
call  engage(t,t.I.it) 

END  IF 

if  (trace)  print  *,'<maxvel' 

ENT) 


11.6  Path:  Find  Position  and  Velocity  of  Combatant.  Path  returns  the  position  and  velocity 
of  a  single  tank.  Path  uses  a  table  that  looks  like  this: 


Tank 

^0 

B 

Vo 

n 

m 

1 

2 

NN 

When  it  is  called  to  return  the  position  and  velocity  of  a  single  tank,  it  checks  to  see  if  the  data  in  the 
table  is  sufficiently  recent.  If  the  data  is  obsolete,  path  updates  it.  In  either  case,  Path  copies  the  data  to 
the  output  arguments:  x,  y,  vx,  and  vy. 

The  data  in  the  table  is  obsolete  if  a)  the  tank  is  on  the  attacking  side,  b)  the  tank  still  has  mobility, 
and  c)  the  time  since  the  data  was  last  updat-'d  ..er  than  delt.  For  purposes  of  this  routine, 

defenders  and  tanks  in  a  meeting  engagement  don’'  -e,  o  their  position  and  velocity  never  needs  to  be 
updated.  When  attackers  are  mobility  kilk  ’  '  ?  is  updated,  so  it  doesn’t  have  to  be  updated  later 

for  those  tanks.  This  means  path  must  be  .  just  before  the  program  changes  life(I)  to  indicate  a 
mobility  kill  or  worse.  The  last  update  time  for  the  ith  tank  is  tO(I)  and  the  current  time  is  t,  so  the  time 
since  last  update  is:  dt  =  t-tO(I).  If  this  is  greater  than  delt  then  the  data  is  old.  If  the  data  needs  to  be 
updated,  the  code  stores  the  current  time  t  as  the  update  time  tO(I)  and  then  branches  depending  on  the 
current  motion  of  the  tank. 

If  the  tank  is  slowing  the  code  finds  the  velocity  change,  the  new  position,  and  the  new  velocity  as 
shown  in  the  chart  below. 


CODE 

MATH 

CO.MMENT 

decel(n) 

a 

Deceleration  of  tank  (m/s**2). 

dt 

Time  since  last  update  (s). 

dv 

Ji'  =  a  At 

Velocity  change  (m/s). 

dv 

At'  =  -Af 

Change  sign  because  Red  moves  in  negative  direction. 

xO(I) 

X 

Old  X  coordinate  (m). 

vxO(l) 

V 

Old  velocity  (m/s). 

x0(l) 

x'  =  At{v-Av/2) 

.\’cw  X  coordinate  (m). 

V 

v'  =  v—Av 

New  velocity  (m/s) 

\v\<0 

Force  velocity  to  zero  if  round  off  gives  almost  zero  speed. 

This  avoids  choosing  moving  accuracy  data  for  stationary  tank. 

vxO(I) 

r"  =  v’ 

Save  new  velocity  in  table. 

If  the  tank  is  stationary,  the  speed  is  updated  to  zero. 

If  the  lank  is  accelerating  the  code  finds  the  velocity  change,  the  new  position,  and  the  new  velocity 
as  shown  in  the  chart  below. 


CODE 

MATH 

COMMENT 

dv 

U 

II 

1 

U 

Change  sign  because  Red  moves  in  negative  direction 

vxO(I) 

V 

Old  velocity  (m  s). 

xO(I)  i 

x'  =  At(v-Av/2) 

New  X  coordinate  (m). 

V 

v'  =  v  —  Av 

New  velocity  (m  s) 

If  the  tank  is  at  cruise  speed  the  code  finds  the  new  position  and  velocity  as  shown  in  the  chart 
below. 


CODE 

MATH 

COMMENT 

x0(I) 

vxO(I) 

x'  =  x+vAt 
v'=  a 

New  X  coordinate  (m). 

Current  velocity  is  combat  cruise  speed  (m/s). 

c  V7.3 

SUBROUTINE  PATH  (I,t,  motio2,  delt,  x,  y,  vx,  vy) 
c  4  Path;  search  path  table  for  position  and  vel  at  time  t. 
include  'common. h' 
logical  is  atkr,  kan  go,  old 
c 

if  (trace)  print  •,’>path’ 
n  —  army(l) 

is  atkr  —  (scene.eq.RATT.^K  .and.  n.eq.RED)  .or. 

1  (scene.eq.BATTAK  .and.  n.eq.BLU) 
kan  go  —  (motio2.ne.STATNY  .or. 

1  lire(l).eq.ALIVE  .or.  life(I).eq.FKILL) 
dt  -  t-tO(I) 
old  —  dt  .gt.  delt 

IF  (is  atkr  .and.  kan  go  .and.  old)  THEN 
c  Update  positions  and  velocity. 
tO(I)  -  t 

IF  (motio2.eq.SLOWNG)  THEN 
dv  —  decel(n)*dt 
if  (n.eq.RED)  dv— -dv 
xO(I)  -  x0(I)4-dt*(vx0(I)-0.5*dv) 

V  —  vxO(I)-dv 

if  (abs(v). It. 0.001)  v  —  0.0 

vxO(I)  -  V 

ELSEIF  (motio2.eq.STATNY)  THEN 
vx0(li-  0.0 

ELSEIF  (motio2.eq.ACCELG)  THEN 
dv  —  accel(n)*dt 
if  (n.eq.RED)  dv— dv 
x0(I)  -  x0(I)+dt*(vx0(l)+0.5*dv) 
vx0(^I)  -  vx0(I)-i-dv 
ELSEIF(motio2.eq.MAXVL)  THEN 
x0(I)  -  .x0(I)H-vx0(I)*dt 
vx0(^I)  —  speed(n) 
if  (n.eq.RED)  vxO(I)— vxO(I) 

ELSE 

print  *.'P.\TH:  no  such  motion.  moiio2-,’.molio2 
STOP 
ENDIF 
END  IF 
x-xO(I) 
y-yo(l) 
vx— vxO(I) 
vy— 0.0 

if  (trace)  print  *,'<  path' 

END 
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11.7  Rgf:  Find  Range  to  Target,  Relative  Position,  and  Velocities  Rgf  finds  the  position  and 
velocity  of  the  firer  and  target.  It  then  finds  the  position  of  the  firer  with  respect  to  the  target,  the  range, 
the  range  band  number,  and  the  rounded  range. 

The  code  calls  path  to  get  the  position  and  velocity  of  the  firer  and  its  target.  Then  it  stores  the 
difference  in  positions  in  the  s  array  and  finds  the  range  between  them  (temp).  Next  it  finds  the  range 
band  (nrg)  and  the  range  corresponding  to  that  band  (rg).  Finally,  it  may  print  the  positions  and  veloci¬ 
ties  if  the  appropriate  debug  flag  is  set. 

Why  find  the  range  band?  The  program  uses  numerous  tables.  Some  of  them  give  values  as  a  func¬ 
tion  of  range,  for  example,  accuracy  as  a  function  of  range.  If  the  program  uses  the  nearest  value  in  a 
table,  it  requires  the  index  of  the  value.  Table  19  below  shows  the  relationship  between  target  range  and 
the  range  band  index  (nrg).  If  the  target  range  is  in  the  range  bands  shown  in  row  i,  the  nrg  takes  the 
values  shown  in  row  2,  and  the  range  is  assumed  to  be  the  values  shown  in  row  3. 

Table  19.  Range  Bands 

Range  band  0-750  750-1250  1250-1750  1750-2250  2250-2750  2750-3250  3250-3750  3750-42.50 

nrg  1  2  3  4  5  6  7  8 

Range  used  500  1000  1500  2000  2500  3000  3500  4000 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  firer. 

it 

ID  of  target 

xf,yf 

Coordinates  of  firer  (m). 

xt,yt 

Coordinates  of  target  (m). 

vfx, vfy 

Velocity  of  firer  (m/s). 

vtx,vtv 

Velocity  of  target  (m/s). 

s(3) 

Relative  position  of  target  w.r.t  to  the  firer  (m). 

nrg 

Range  band 

rgf 

Range  to  target  from  firer  (m). 

rg 

Rounded  range  to  target  from  firer  (m). 

c  V7.4 

FUNCTION  RGF  (t,  I,  il) 
c  3  Rgf:  find  the  position  of  the  firer  w.r.t.  the  tgt. 
include  'common. h’ 
common  /pathc  /  .xf,  yf,  xt,  yt 
save  /pathc  / 

1  format  (9x. 'Firer  x,  y,  vx,  vy  — '.  4fl0.1./ 

*  9x, 'Target  X,  y,  vx,  vy 4fl0.1) 

if  (trace)  print  *,'>rgf' 

call  path  (l.t,motion(l),0.0,xf.yf,vfx.vfy) 

call  path  {it.t,motion(it).0.0.xt.yt,vtx,vty ) 

s(  1)  =>  xf-xt 

s|’2)  =  yf-yt 

sf3)  =  0.0 

temp  -  sqrt(s( l)**2-hs(2)**2) 
nrg  —  max0(  l,int(0.5-htemp/rgincr)) 
rgf  —  temp 
rg  -  irginc*nrg 
if  (keyml20).gt.0)  print  1, 

*  xf.  yf,  vfx,  vfy,  xt,  yt,  vtx,  vty 
if  (trace)  print  *,’<rgr 

END 


11.8  CanGo:  Find  if  Tank  is  Stopped  but  Mobile.  Can  go  finds  whether  the  tank  ‘can  go’.  If 
the  tank  is  an  attacker  and  is  mobile  and  is  either  stationary  or  slowing  down,  then  it  ‘can  go’. 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  firer. 

m 

Side  of  firer  (l=Blue,  2=Red). 

scene 

l=Meeting,  2=Blue  attack,  3=Red  attack. 

isatkr 

True  iff  firer  is  moving  toward  foes. 

malive 

True  iff  firer  mobile. 

faster 

True  iff  firer  is  able  to  go  faster. 

can  go 

True  iff  firer  can  go  faster  than  it  is  going  now. 

c  V7.1 

LOGICAL  FUNCTION  CAN  GO  (I.  t) 
c  6  Can  go:  True  iff  is  stationary  and  can  move, 
include  'common. h' 
logical  is  atkr,  m  alive,  faster 

m  —  army(I) 

is  atkr  —  (^m.eq.BLU  .and.  scene. eq.BATTAK)  or. 
1  (m.eq.RED  .and.  scene.eq.RATTAK) 
m  alive  —  lifellj.eq. ALIVE  .or. 

1  life(I).eq.FKILL 

faster  »  (motion(I).eq.STATNY  .or. 

1  motion(I).eq.SLOWNG) 

can  go  —  is  atkr  and.  m  alive  and.  faster 
END 
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12.  OBSCURATION  ROUTINES 


The  obscuration  routines  model  the  effects  of  terrain  or  smoke  on  line-of-sight  (LOS).  The  model 
does  not  handle  the  combined  effects;  only  one  or  the  other.  When  terrain  effects  are  modeled,  breaks  in 
and  restoration  of  LOS  depends  on  the  distance  traveled  by  the  attackers.  When  smoke  effects  are 
modeled,  breaks  in  and  restoration  of  LOS  depends  on  time  elapsed.  In  either  case,  targets  appear  then 
vanish,  then  appear  again  in  a  cycle  that  ends  only  when  the  target  is  mobility  killed  or  moves  beyond 
viewing  range. 

The  diagram  below  shows  the  relationship  between  the  obscuration  routines.  Initially,  targets  are 
assumed  to  be  masked  if  smoke  is  used  and  are  assumed  to  be  in  view  if  terrain  is  used.  The  important 
relationship  is  the  cycling  between  the  vanish  and  appear  events.  Appear  calls  AprSmk  or  AprTer  as 
appropriate  and  these  routines  turn  on  the  search  cycle  IFF  it  has  been  turned  off.  (The  code  models 
search  only  if  detection  is  possible.) 

I - 1 

I  I 

I  init  I 

I  I 

I  I 

I - 1 - 1 


12.1  RdSmk:  Read  Intervisibility  Data  for  Smoke.  Rd  smk  reads  smoke  intervisibility  data. 
This  data  consists  of  cumulative  distributions  of  in-view  and  out-of-view  segment  lengths  and  their  proba¬ 
bilities. 

Tank  V/ars  simulates  breaks  in  line-of-sight  (LOS)  caused  by  intermittent  terrain  or  smoke  but  not 
both.  If  smoke  is  used,  a  special  file  must  be  created  which  contains  6  tables.  They  consist  of  the  following 
data: 

1.  First  out-of-view  for  IR  band  sensors  (Thermal  viewers). 

2.  First  out-of-view  for  visual  band  sensors  (eyes,  binoculars,  periscopes). 

3.  Subsequent  out-of-view  for  IR  band  sensors. 

4.  Subsequent  out-of-view  for  visual  band  sensors. 

5.  In-view  for  IR  band  sensors. 

6.  In-view  for  visual  band  sensors. 

Each  table  has  21  rows  with  5  entries  in  each  row  as  shown  in  table  20.  The  program  draws  a  ran¬ 
dom  number  and  finds  the  range  from  the  sensor  to  the  target  and  does  a  2-way  linear  interpolation  in  the 
table  to  find  the  time  the  target  will  be  in-view.  For  in-view  data,  the  time  in  view  increases  as  range 
decreases.  The  opposite  occurs  for  out-of-view  data;  time  out  of  view  increases  as  range  increases. 


Table  20.  Time  In-View  for  a  V'isual  Band  Sensor 


Prob 

Range  (meters) 

0 

1000 

2000 

3000 

4000 

0.00 

500. 

210. 

150. 

125. 

100. 

0.05 

500. 

190. 

85. 

80. 

75. 

0.10 

500. 

170. 

63. 

58. 

42. 

0.15 

500. 

150. 

44. 

40. 

26. 

0  20 

500. 

130. 

33. 

28. 

10. 

0.25 

500. 

110. 

26. 

16. 

0. 

0.30 

500. 

90. 

18. 

10. 

0. 

0.35 

500. 

80. 

13. 

4. 

0. 

0.40 

500. 

68. 

9. 

0. 

0. 

0.45 

500. 

55- 

4 

0. 

0. 

0..50 

500. 

42. 

0. 

0. 

0. 

0.55 

500. 

34. 

0. 

0. 

0. 

0.60 

500. 

25. 

0. 

0 

0. 

0.65 

500. 

15. 

0 

0. 

0. 

0  70 

500. 

8. 

0. 

0. 

0. 

0.75 

500. 

4. 

0. 

0. 

0. 

0.80 

.500. 

0. 

0. 

0. 

0. 

0.85 

500. 

0. 

0. 

0. 

0. 

0.90 

.500. 

0. 

0 

0. 

0. 

0.95 

500. 

0. 

0 

0. 

0. 

1.00 

500. 

0. 

0. 

0. 

0. 

The  actual  data  file  is  free  format,  with  numbers  separated  by  blanks  or  commius. 

Figure  9  below  shows  a  plot  of  the  data.  When  the  tanks  are  1000  meters  apart.  20‘'c  of  the  time 
LOS  exists  only  momentarily  seconds.  Only  rarely  does  it  exist  for  200  seconds  or  more. 


0  100  200  300  400  500 

Duration  of  LOS  (sec) 

Figure  9.  Probability  LOS  exists  for  t  seconds  or  more. 


CODE 

toutil(21,5) 

toutvl(21,5) 

touti(21,5) 

toutv(21,5) 

tini(21,5) 

tinv(21,5) 

ptbl(21) 

rtbl(5) 


_ COMMENT _ 

Table  of  out-of-view  segment  lengths  for  infrared 
Table  of  out-of-view  segment  lengths  for  visible  band 
Table  of  out-of-view  segment  lengths  for  infrared  band 
Table  of  out-of-view  segment  lengths  for  visible  band 
Table  of  in-view  segment  lengths  for  infrared  band 
Table  of  in-view  segment  lengths  for  visible  band 
Vector  of  probabilities. 

Vector  of  ranges  (m) 


0  Vl.3 

SLTOOUTINE  RDSNIK  (fname) 
c  Rd  smk:  Read  intervislbilily  data  for  smoke. 
cha'-acter*32  fname 
include  'common. h' 

com^i^n  /smokel;  louli l(21.S).toutv U'dl.al.toutiCJl.S), 
1  l'  ulv(2i  3),lini('Jl,.$),linv|'’l.5),plbl(21  ).rtbl(5) 


open  In.. lie— fname,  status— 'old') 
rewind  d 

print  *.'  Smoke  causes  intervisibility  ' 
read  * 

read  *.  (Itouti  l(i,j).j  =  l..5).i-l.'2I ) 
read  * 

read  *,  ((toiitvl(i.j),j— l,.s),i  — I.2I ) 
read  * 

read  *,  (|touti(i.j|,j— l,.5),i-1.21 1 
read  * 

read  *.  |(toutv(i.j).j-l,.5).i-l.'Jl ) 
read  * 

read  *.  ((tini(i.j),j-l..a).i-1.21 1 
read  * 

read  *.  {(tinv(i.j),j-1.5).i-l.'21 1 
close)  d) 

END 
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12.2  Smoke:  Find  When  Smoke  Will  Stop  Blocking  LOS  Between  Searchers  and  Targets. 

At  the  beginning  of  each  engagement  init  calls  smoke.  For  each  Blue/Red  pair  of  tanks,  smoke  finds 
when  each  will  appear  to  the  other.  It  then  schedules  the  target  to  appear  for  the  searcher  at  that  time. 


CODE 

P 

r 

dt 


_ COMMENT _ 

For  all  Blue/Red  pairs  a  random  number  is  drawn 
Opening  range. 

Time  smoke  blocks  LOS  between  searchers  and  target  (sec) 


For  each  searcher/target  pair,  the  code  draws  a  random  number  from  the  standard  uniform  distribu¬ 
tion.  It  finds  the  opening  range  and  viewer  type  for  each  side.  Then  it  does  a  ^-dimensional  interpolation 
in  the  table  for  the  appropriate  viewer.  The  code  uses  the  range  and  random  number  to  find  the  time  of 
appearance.  If  both  sides  use  the  same  type  of  viewer,  the  searcher  and  target  will  appear  to  each  other 
simultaneously. 

For  details  of  the  interpolation  routine,  see  the  section  discussing  the  utility  routine  tdintp. 


c  V7.6 

SLtBROUTINE  SMOKE 

c  0  Smoke:  Find  path  lengths  where  attacker  is  hidden  b>  smoke, 
include  'common. h’ 

common  /smokel/  toutiI('21,.S),toutvl(21,S),touti(21.5), 

1  toutv(2i,5),tini('21,.5),tinv('21,.S),ptbl('Jl).rthl(.5) 

data  ptbl  /0.,.05,.1..15,.2,.2.5..3..3S.  ■t..45..5,  ■S.S..6..65..7. 

1  7.5,.3,.85..9,.95,1.0/ 

data  rtbl  /O  .IOOO  ,'2000  .3000  ,4000.  ' 

if  (tracelprinl  >smoke' 

DO  80  nb--  l.nblu 
DO  70  nt -nbl'i  +  l.nblu+nred 

c  Find  first  .im«  window  for  LOS  between  tanks  nb,  nr. 
p>«ranu(dn) 
r-rgO 

if  (kviewif'iED).eq,  1)  dt-tdintp|ptbl.rtbl.toutvl,p.r.21..S) 
if  (kview'ftED).eq.2)  dt— tdintpiptbl.rtbl,toutil,p,r,21,.S) 
call  skedul(dt.nb,'appear'.nr| 

if  (kview(BLU).eq.  1 1  dt— tdintpiptbi.rtbl.toiitv  1  .p,r,21..5) 
if  ikview(BLU).eq.2|  dt— tdinlpl ptbl, rtbl. tout il.p.r, 21. -S) 
call  skedul(dt,nr,'appear',nb) 

70  CONTINUE 
80  CONTINX'E 

ifitracelprint  *,'<smoke' 

END 


12.3  Appear:  Simulate  or  Reschedule  an  Appear  Event.  Appear  simulates  the  re¬ 
establishing  line-of-sight  between  a  target  and  one  or  more  searchers. 

The  overall  structure  of  the  routine  is  as  follows: 

IF  (simulating  terrain)  THEN 
simulate  appearance  from  behind  terrain 
find  distance  tank  has  traveled 

IF  (tank  has  traversed  entire  out-of-view  distance)  THEN 
treat  appearance  of  the  tank 
ELSE 

reschedule  appearance 
ENDIF 
ELSE 

simulate  appearance  out  of  smoke 
IF  (both  sides  use  similar  viewing  devices)  THEN 
Treat  appearance  and  vanishing  for  both  sides 
ELSE 

Treat  appearance  for  searcher  only 
ENDIF 
ENDIF 

The  first  branch  treats  terrain  intervisibility.  The  code  checks  to  see  if  the  lank  is  stationary  and 
stops  the  simulation  if  it  is.  (This  is  a  redundant  check  but  can  be  useful  if  the  code  that  treats  hiding 
behind  terrain  is  altered.)  Then  the  code  finds  how  far  the  tank  has  traveled  since  it  vanished.  call  to 
path  produces  the  position  of  the  tank.  If  the  tank  has  traversed  the  entire  oul-of-view  segment  length 
it's  ready  to  appear,  otherwise  appear  will  be  rescheduled. 


CODE 

\L\TH 

COMMENT 

t 

Time  (sec) 

it 

ID  of  target 

I 

ID  of  firer. 

armyt 

Side  of  target.  (  =  1  for  Blue.  2  for  Red) 

armyf 

Side  of  firer.  (  =  1  for  Blue,  2  for  Red) 

invisb 

=  1  if  terrain  modeled.  2  if  smoke  modeled 

speed(n) 

", 

Combat  cruise  speed  of  tanks  on  side  armyt  (m  s). 

x,y 

X.  y 

Current  position  of  target  (m). 

xold.  yold 

^0'  Vo 

Position  of  target  when  it  vanished  (m).  If  target  appears, 
these  will  become  position  of  target  when  it  appears. 

travel 

Distance  traveled  while  masked  (rn). 

dist(il) 

Length  of  out-of-view  segment  (m). 

iseg{it) 

#  of  current  segment  (indexes  vector  of  alternating 
in  view  and  out-of-view  segments. 

dist(it) 

=  C,, 

In  view  segment  length  (m). 

dt 

At  =  d-Jv^  -t-  0.01 

Time  to  next  vanish  (.sec). 

dt 

zir  =  «.,-(/)/ r. +  0.01 

Remaining  time  to  reach  end  of  out-of-view  segment  (sec). 

The  second  branch  treats  smoke  intervisibility.  The  code  checks  to  see  if  both  sides  are  using  the 
same  kind  of  viewer.  If  so,  the  code  restores  LOS  for  both  simultaneously.  There's  a  fine  point  here.  The 
code  schedules  appear  for  both  but  to  re-establish  LOS  simultaneously,  it  has  to  discard  the  appear 
event  for  one  and  treat  it  for  both  when  the  other  occurs.  So  when  the  appear  occurs  for  Blue,  the  code 
finds  the  next  time  in-view  and  ont-of-view  for  both  systems.  It  the  schedules  the  next  vanish  and  next 
appear  for  both. 


If  the  systems  are  using  different  viewers,  the  code  for  the  less  effective  viewer  must  re-establish  LOS 
after  and  lose  it  before  the  more  effective  viewer.  For  this  reason,  the  less  effective  visual  band  viewer 
triggers  the  next  in  view  and  out-of-view  times  for  both  systems. 

Figure  10  shows  how  in  view  and  out-of-view  time  segments  overlap  for  two  viewers.  Neither  viewer 
has  line-of-sight  through  the  middle  of  a  smoke  cloud  where  the  density  is  highest.  However,  nearer  the 
edges  of  the  smoke  cloud,  where  the  smoke  is  less  dense,  the  IR  viewer  has  line-of-sight  while  the  visual 
band  viewer  still  has  no  line-of-sight. 


CODE 

MATH 

COMMENT 

dl 

Random  in  view  time  for  visual  (sec). 

d2 

Random  out-of-view  time  for  visual  (sec). 

d4 

^4 

Random  out-of-view  time  for  IR  (sec). 

d3 

A3  =  A^  +  .5(A^-A^) 

In  view  time  for  IR  (sec). 

IR  band 


visual  band 


out-of-view 


out-of-view 


t 


in  view 


in  view 


t+A^ 


out-of-view 


out-of-view  I 


f +  -l|  +  -lo 


Time 

Figure  10.  Overlap  of  Visibility  Segments  for  Disparate  Viewers 


c  V7.7 

SUBROUTINE  APPEAR (t, it, I) 

c  0  Appear:  if  tgt  appears  treat,  otherwise  reschedule  appearance 
include  'common. h' 

common  /smokel/  toutil(21,S),toutvl(21.S),touti(21,5), 

1  toutv(2i,5),tini(21,S),tinv(21,5),ptbl(2l).rtbl(5) 

common  /terane/  d(40),  xold(20),  yolo(20),  dist('20),  iseg(20) 
rss(x,y)  -  sqrt(x*x+y*y) 

1  format(r8.2,lx,a4,i3,'  appears  ’.9x.’(x— '.fS.l,'  y-’.fS.l.')') 

2  rormat(r8.2,lx,a4,i3,'  LOS  to  ',a-l.i3,'  starts.') 

if  (trace)  print  *,'> appear' 
n  —  army(it) 
m  —  3-n 

IF  (invisb.eq.l)  THEN 
c  Terrain  causes  intermittent  LOS. 

if(3peed(n).le.0.)print  *, 'APPEAR:  n. speed—', n.speedjn) 
ifIspeedInj.le.O.)  STOP 
call  path(it,t,motion(it),0,2,x,y,vx,vy  | 
travel  —  rss(x-xold(it),  y-yold(it)) 

IF  (travel. gt.dist(il))  THEN 
c  Tgt  is  no  longer  masked  by  terrain 
if  (histry)  print  l,t,color(n|,it.x,y 
xold(ilj  -  X 
yoldfit)  -  y 
iseg(il)  -  iseg(it)+l 
if  (iseg(it).gt.40)  iseg(it)-i3eg(it)-40 
dist(it)  —  d(iseg(it)) 
call  aprter(t,it,I,FE) 
c  Schedule  next  disappearance 

dt  —  disl(it)/speed(n)  +  0.01 
call  skedul(t+dt,it,' vanish ’.NXfLL) 

ELSE 

c  Still  masked  by  terrain,  so  reschedule  mask  end 
IF  (life(it).eq. ALIVE)  THEN 
dt  —  (dist(it)  -  travel)  /  speed(n)  +  0.01 
call  skedul  (l+dl, it, 'appear', NULL) 

END  IF 
E.NDIF 
ELSE 

c  Tgt  Is  no  longer  masked  by  smoke 

if  (histryl  print  2.t.colorl,3-n),l.  color(n|.it 


call  aprsmk(t,it,I) 

Schedule  next  disappearance 
r  -  rgf(t,I,it) 
p  —  ranu(O) 
pout  —  ranulO) 

IF  (kview(RED).eq.kview(BLU))  THEN 
IF  (m.eq.BLU)  THEN 
IF  (kview(m).eq.2)THEN 
dtin— ldinlp(plbl,rtbl.lini.p,r,21,5) 
dtout— ldintp(plbl.rtbl,louti,pout,r,21,o) 
ELSE 

dtin— tdintplptbl.rtbl.tinv  p.r,21  ..SI 
dloui— tqintp(ptbl,rtbl,loulv,pout,r.21,5) 
END  IF 

call  5kedul(l+dtin,it,'vanish',I) 
call  skedul(t+dli n,l,' vanish  .it) 
call  skedul(t+dlin+dtoul,il,'appear'.l) 
call  skedul  I  l+dlin+dtout,l,' appear '.it) 

ENT>IF 

ELSE 

IF  (kview(m).eq,  1 )  THEN 
di-ldinlp(ptbl,rtbl,tinv.p,r,21,.S) 
d2-tdi  nlp(  p  t  bi.rtbl.toutv,  pout,  r.2 1.5) 
d4=tdintp(ptbl.rlbl.touti.poiit.r.'21.5) 
d3=dl+(d2-.l4|*0  .5 
call  skedulft  +d Lit .'vanish'.ll 
call  skedul|t+dl4-d2,it,'.appear'.l) 
call  skedul(t+d3.l.  vanish  . it) 
call  skedul(t+d3+d4.l.'appear'.ill 
END  IF 
END  IF 
END  IF 

if  (trace)  print  *.'<  appear' 

END 


12.4  Aprsmk:  Simulate  Target  Appearing  from  Behind  Smoke.  When  a  target  appears  from 
behind  smoke,  apr  smk  restores  the  line-of-sight  from  the  firer  to  the  target  (but  not  from  target  to  firer.) 
If  search  has  been  de-activated,  apr  smk  re-schedules  it. 


CODE 

COMMENT 

t 

Time  (sec). 

it 

ID  of  target. 

I 

ID  of  firer. 

n 

Side  of  target  (l=Blue,  2=Red). 

knceal(it) 

Concealment  of  target  (Reset  to  HD  or  FE). 

nblu,  nred 

Number  of  Blue,  Red  combatants. 

los(i,j) 

True  IFF  i  has  line  of  sight  to  j. 

repeat 

If  false,  reset  to  true  and  restart  search. 

SUBROUTINE  APRSMK(t,il,I) 
c  0  Aprsmk:  Tgt  appears  out  of  smoke,  reset, 
include  'common. h’ 

common  /terane/  d(40),  xold(20),  yold(20),  disl(20),  iseg(20) 
c 

if  (trace)  print  •,’>aprsmk' 
n  —  army(it) 

c  Restore  line-of-sight  from  firer  to  tgt. 

los(I,it)  —  army(l).ne.n 
c  Turn  search  on  if  it  is  iS 
IF  (.not. repeat)  THEN 
repeat  .true. 

call  skedul(t-h.01,0,'search',Nl.TL) 

END  IF 

if  (trace)  print  •,’<aprsmk' 

END 
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12.5  Aprter:  Simulate  Target  Appearing  from  Behind  Terrain.  The  target  has  just  re¬ 
appeared  from  behind  terrain.  If  it’s  a  defender  it  will  pop-up  to  hull  defilade  and  if  it’s  an  attacker  it  will 
be  fully  exposed.  Aprter  re-establishes  line-of-sight  to  all  targets  that  are  not  in  full  defilade.  Then,  if 
search  was  turned  off,  it  is  turned  back  on. 


CODE 

COMMENT 

t 

Time  (sec) 

it 

ID  of  target. 

I 

ID  of  firer  (UNUSED). 

jexpos 

Exposure  of  target  after  re-appearing  (HD  or  FE). 

n 

Side  of  target  (l=Blue,  2=Red). 

knceal(it) 

Exposure  of  target. 

los(i,j) 

True  IFF  i  has  line  of  sight  to  j. 

repeat 

If  false,  reset  to  true  and  restart  search  process. 

c  V7.1 

SUBROUTINE  APRTER(t,it,I,jexpos) 
c  0  Aprter:  Tgt  has  appeared  from  behind  terrain,  reset, 
include  'common. h’ 
integer  it.firer 

common  /terane/  d(40),  xold(20),  Yold(20),  dist(20).  iseg{20) 
1  rormat{f8.2,lx,a-4,i3,’  aprter  ’,9x,’(x— ’.fS.l,’  y— '.fS.l,’)’) 

c 

if  (trace)  print  *,’> aprter’ 
n  —  army(it) 
knceal(it)  —  jexpos 

c  Restore  all  lines-of-sight  involving  it 
DO  20  i—l.nblu+nred 
IF  (knceal(i).ne.FD)  THEN 
losfit,i)  —  armylij.ne.n 
los(i,it)  —  armyiij.ne.n 
END  IF 

20  CONTINUE 
c  Turn  search  on  if  it  is  off 
IF  (.not. repeat)  THEN 
repeat  ••  .true. 

call  skedul(t+. 01,0, 'search', .NUILL) 

ENDIF 

if  (trace)  print  •,’<aprter' 

END 


12.6  Terain:  Find  Path  Lengths  Where  Attacker  is  Masked  by  Terrain.  Terain  finds  the 
portions  of  the  attacker  paths  where  the  attackers  are  hidden  from  the  defenders  by  terrain. 

Init  calls  this  routine  at  the  beginning  of  each  engagement  if  the  scenario  is  a  Blue  or  Red  attack. 
Terrain  then  creates  a  table  d(40)  and  puts  randomly  chosen  in-view  segment  lengths  in  the  odd  elements 
of  d  and  out-of-view  as  shown  in  figure  11. 


in  out  in  out  out 

- ^ ^ ^ - (. - ^ - 


Distance  - ^ 

Figure  11.  Alternating  In  View  and  Out-of-View  Segments 

Later,  the  code  will  need  to  know  which  segment  each  attacker  is  in,  the  length  of  the  segment,  and 
where  the  segment  began.  The  DO  30  loop  stores  this  information  for  each  attacker  and  tentatively 
schedules  a  vanish  for  each.  (The  vanish  is  only  tentative  because  the  attacker  may  stop  while  travers¬ 
ing  the  in  view  segment;  it  may  halt  to  fire  or  it  may  be  mobility  killed.) 

The  segment  lengths  are  random  variates  drawn  from  Wiebull  distributions.  The  in  view  segment 
length  is:  „ 

/  =  “i/  ' 

and  the  out-of-view  segment  length  is:  , 

^-1 

f  =  «:/  , 

where 

/  =  — log(ran),  and 

ran  is  a  draw  from  the  standard  uniform  distribution. 

Sometimes  these  segment  lengths  are  excessively  long  so  that  the  attackers  are  out-of-view  at  all  rea¬ 
sonable  engagement  ranges,  with  the  result  that  no  engagement  occurs.  For  this  reason,  the  segment 
lengths  are  truncated  to  30^  of  the  opening  range. 


CODE 

COMMENT 

ifirst 

ID  of  first  attacker. 

last 

ID  of  last  attacker. 

d(i) 

Length  of  segment  (m) 

rgO 

Opening  range  (m). 

x0(i),  y0(i) 

Position  of  attacker  (m). 

xold(i),  yold(i) 

Beginning  of  segment  (rn). 

dist(i) 

Length  of  segment  (m). 

iseg(i) 

Number  of  segment  ith  attacker  is  in. 

0  VT.fi 

.SUBROUTI.N'E  TER.-\IN  (ifirst.lasl) 
i:  0  Terain:  find  path  lengths  where  attacker  is  ma.sked  by  terrain 
include  ’common. h’ 

common  /terane;  d(-40),  xoldlCO),  yold('JO),  dist(20),  iseg(20) 
common  /terrac/  al.  bl,  a2.  b2 
1  format  (’  visible  for'.rb.O.'m,  then  hidden  for'.f.'i.n.'m.') 

r 

if  (trace)  print  terain' 

c  Find  segment  length  at  start  of  each  engagement. 

DO  20  i-I,39,2 

c  Hunfeld  terrain  constants 
f  =  -alog(ranu(0.0)) 
f  -  al'fbl 
d|i)  »  aminl(f,.3*rg0) 
f  =•  -alog(ranu(0.0)) 
f  -  a2*f*b2 
d(i  +  l|  —  aminO(f..:i*rgni 


if  (histrv  I  print  1.  d(i ).  d(i  +  l  I 
20  CONTI.NT'E 
c  Initialize  data  for  each  lank 

DO  30  i=ifirst,last 
xold(i)  =  x0|i) 
yold(i)  -  y0(i| 
dist(i)  =  d(l) 
isegl'i)  =•  1 

call  skedul  (0.,i, 'vanish', Nt'LL) 
,30  CONTINUE 

if  (trace)  print  terain' 

E.ND 


12.7  Vanish:  Simulate  or  Reschedule  Vanish  Event.  Vanish  models  the  disappearance  of  a 
target  due  to  smoke  or  terrain  blocking  the  line  of  sight.  Smoke  blocks  the  line  of  sight  at  a  definite  time. 
Terrain  blocks  the  line  of  sight  only  when  the  attacker  traverses  the  in  view  segment,  so  vanish  is  only 
scheduled  tentatively  for  terrain  blockage.  The  code  checks  to  see  if  the  attacker  has  completed  the  in 
view  segment.  If  so,  it  schedules  a  subsequent  vanish,  otherwise  it  reschedules  va>'isli  h  1  v.!  the  in 
view  distance  left  to  travel  and  the  combat  cruise  speed  of  the  attackers. 

If  smoke  causes  the  target  to  disappear,  the  code  simple  calls  vansmk. 

If  terrain  causes  the  target  to  disappear,  vanish  is  only  tentative.  If  the  attackine  t?.nk  has  com¬ 
pleted  the  in  view  segment,  the  code  sets  up  the  next  appear  event  and  calls  vp’-.icr  'c  complete  the  van¬ 
ish  event.  To  set  up  the  next  appear  event,  the  code  records  the  beginning  of  the  out-of-view  segment, 
the  segment  number,  and  the  length  of  the  segment.  It  then  finds  the  time  to  complete  the  out-of-view 
segment  and  schedules  an  appear  event  at  the  end  of  that  time. 


CODE 

NLA.TH 

COMMENT 

t 

Time  (sec). 

I 

ID  of  searcher. 

it 

ID  of  target. 

n 

Side  target  is  on.  (1  if  Blue.  2  if  Red) 

invisb 

1  if  terrain  blocks  LOS,  2  if  smoke  blocks  LOS 

speed(n) 

V 

Combat  cruise  speed  of  target  (m/s). 

X,  y 

Position  of  target  (m). 

xold,  yold 

Beginning  of  in  view  segment  (m). 

travel 

Distance  traversed  in  segment  (m). 

dist(it) 

du 

Length  of  in  view  segment  target  is  in  (m). 

dt 

At  =  (f,j/t>+.0l 

Time  to  travel  out-of-view  segment  if 
target  vanished  (sec). 

dt 

At  =  {di^-d)/v+.0\ 

1 

Time  to  finish  traveling  in  view  segment 
if  target  paused  enroute  (sec). 

0  \'7.4 

SUBROUTINE  V.\NISH(t,ii,I) 

c  0  Vanish:  if  Igt  vanishes  treat,  otherwise  reschedule  vanish 
include  'common. h’ 

common  /terane/  d(dO),  .xold('20),  yold(201,  dist(20),  iseg(20) 
rss(x.y)-sqrt(x*x+y*y) 
c 

if  (trace)  print  *,'>vanish' 
n  —  army(it) 

IF  linvisb.eq.l)THEN 

inspeed(n),le,0.)print  *.'V,\NISH:  n. speed— ’,n, 

1  speed(n) 

IF  (speed(n).le.O.)  STOP 
call  path(it,t,motion(it),0.0,x,y,vx,vy ) 
c  Terrain  causes  intervisibility 

travel  -  rss(x-xold(it),  y-yold(it)) 

IF  (travel. gt.distlit))  THEN 
c  Tgt  is  now  masked  by  terrain 
xold(itl  —  X 
yold(it|  -  y 
iseg(it)  -  iseg(it)+l 
if  (iseg(it).gt.40)  iseg(it)-iseg(it)-40 
dist{it)  «  d(iseg(it)) 
call  vanter(t,it,l) 
dt  —  dist(it)/speed(n)  +  0.01 
call  skedul  (t+dt, it, 'appear', NXTL) 

ELSE  IF  (life(it).eq.ALIVE)  THEN 
c  Not  yet  masked  by  terrain,  so  reschedule 
dt  —  (dist(it)  -  travel)  /  speed(n)  +  0.01 
call  skedul  (t+dt, it, 'vanish', NULL) 

END  IF 
ELSE 

c  Tgt  is  now  masked  by  smoke 
call  vansmk(t,it,I) 

ENDIF 

if  (trace)  print  *.'•  vanish' 

END 
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12.8  Vansmk:  Simulate  Target  Vanishing  Behind  Smoke.  Smoke  breaks  line-of-sight.  If  the 
firer  had  detected  the  target,  the  number  of  taigets  detected  is  decremented.  The  firer  loses  the  target  and 
the  time  the  firer  last  shot  at  the  target  is  reset  to  zero.  This  means  when  the  target  re-appears,  it  will  be 
treated  as  a  new  target  for  selection  priority  purposes.  If  the  firer  was  busy  and  this  was  its  latest  target, 
the  firer  is  reset  to  ‘unbusy’.  If  the  firer  had  selected  this  target  (mot=T  or  fot=T)  it  now  disengages  from 
it.  If  the  target  was  slowing  down  to  fire  and  was  fully  functional  and  about  to  engage  the  firer,  the  code 
cancels  his  halt  and  schedules  an  acceleration  event. 


CODE 

COMMENT 

t 

Time  (sec). 

I 

ID  of  firer. 

it 

ID  of  target. 

m 

Side  of  firer  (1  if  Blue,  2  if  Red) 

n 

Side  of  target. 

los(I,it) 

True  IFF  firer  has  line-of-sight  to  target. 

see(I,it) 

True  IFF  firer  has  sight  of  target. 

tfire(I,it) 

Time  firer  last  fired  at  target  (sec).  If  zero, 
firer  treats  it  as  a  brand  new  target. 

busy(l) 

If  firer  was  occupied  with  this  target  it  isn’t  any  more. 

nrtgt(I) 

ID  of  target  firer  is  occupied  with. 

mot(I,it) 

IF  true,  firer  has  a  missile  assigned  to  this  target. 

fot(I,it) 

If  true,  firer  is  about  to  shoot  a  gun  at  this  target. 

motion(it) 

Target  is  slowing,  halted,  accelerating,  or  cruising. 

life(it) 

Status  of  target. 

0  \'7.3 

SUBROUTINE  VANSMK(t.it,I) 

0  0  Vansmk:  Treat  Igt  that  vanished  behind  smoke, 
include  'common. h' 

1  rormat(r8.2,lx,a4,i3,’  LOS  to  ',a4,i3,'  broken  by  smoke.') 
c 

if  (trace)  print  •,'>vansmk' 
m  —  army(it) 
n  =■  3-m 

if  (histry)  print  1,  t,  color(n),  I, 

1  color(m),it 

c  Cancel  line-of-sight  between  tgt  and  firer. 
los(I,it)  —  .false, 
if  (see(I,it))  ndet(I)  =«  ndel|I}-l 
see(I,it)  —  .false. 
tfire(l,it)  —  0.0 

if  (busy(I). and. nrtgt(I). eq.it)  busy|I)=. false, 
c  .Abort  firer  missile  on  tgt. 

IF  |mot(I,it).or.fot(I,it))  THEN 
call  diseng(^t,I,it,. true.,. true.) 
if  (mot(I.it))  call  abort(t.I,it) 

ENDIF 

c  .Accelerate  tgt  that  was  halting  to  fire. 

IF  (motion(it).eq.SLOWNG  and.  Iife(it).eq,  1  and. 

1  fot(it.I))  THEN 

call  skedul  (t,it,'accel  '..NULL) 
call  cancel  (it, 'hall  '.NULL) 

ENDIF 

if  (trace)  print  •,'<vansmk' 
c  NOTE:  shouldn't  halted  tgt  accelerate  too? 

END 


12.9  Vanter;  Treat  Target  Vanishing  Behind  Terrain.  The  target  has  now  definitely  vanished 
behind  terrain.  It  is  marked  as  being  in  full  defilade,  as  having  no  targets,  and  no  detections.  All  lines  of 
sight  to  and  from  it  are  broken.  The  target  sees  no  foes  and  they  no  longer  see  it.  The  last  fire  times  are 
reset  to  zero  so  the  target  and  its  foes  are  treated  as  new  threats  when  the  target  reappears.  Any  missiles 
are  aborted.  Foes  engaging  the  target  disengage  it  and  if  they  were  halting  to  fire,  they  begin  to 
accelerate. 


CODE 

COMMENT 

t 

Time  (sec) 

I 

ID  of  any  foe. 

it 

ID  of  target. 

n 

Side  of  target  (l=Blue,  2=Red) 

knceal(it) 

Set  to  full  defilade. 

nrtgt(it) 

ID  of  target’s  target. 

ndet(it) 

Number  of  foes  target  is  aware  of. 

nblu,  nred 

Number  of  Blue,  Red  combatants. 

los(i,j) 

True  IFF  i  has  line  of  sight  to  j. 

see(i,j) 

True  IFF  i  sees  j. 

tfire(i,j) 

Time  i  last  fired  at  j.  Zero  implies  j  is  a  new  target. 

fot(i,j) 

True  IFF  i  is  about  to  fire  a  gun  at  j. 

nchan(il) 

Number  of  busy  missile  guidance  channels  for  target. 

ifirst 

ID  of  target’s  first  foe. 

last 

ID  of  target’s  last  foe. 

motion(it) 

Motion  of  target. 

life(it) 

Status  of  target.  (Alive,  m-killed,  etc) 

c  V*7.5 

SUBROUTINE  VANTER(i.il,I) 
c  0  Vanter;  Treat  tgt  that  vanished  behind  terrain, 
include  ’common. h’ 

1  format(r8.2,lx,a4,i3,’  vanishes’, 9x,'(x-',r8.1,'  y=’,r8.1.’)’) 

c 

if  (trace)  print  *,’>vanter’ 
n  -  army(it) 

if  (histry)  print  1,  t,  color(n),  it. 

1  xO(it),  yO(it) 
knceal(it)  —  FD 
nrtgt(it)  =  0 
ndet(it)  —  0 

c  Cancel  all  lines-of-sight  and  sightings  involving  tgt 
DO  20  i— l,nblu+nred 
los(it,i)  —  .false, 
losfi.it)  =  .false, 
if  (see(i,it))  ndet(i)— ndet(i)-l 
see(it,i)  —  .false. 
see(i,it)  —  .false. 
tfire(it.i)  —  0.0 
tfire(i,it)  =  0.0 
fot(it.i)  ”  .false. 

20  CO.NTINUE 
c  .-tbort  outgoing  missiles 
call  abort(t.it,ALL) 
nchan{it)  —  0 

c  Abort  incoming  rounds  &  disengage  tanks  firing  at  tgt 
ifirst— 1 

if  (n.eq.l)  ifirst  —  nblu  +  1 
call  newtgtlt, ifirst, it) 
call  cancel  (it, ’fire  ’,NUXL) 
call  cancel  (it, ’select’, NULL) 
c  Accelerate  tgt  that  was  halting  to  fire. 

IF  (motion(it).eq.SLO\VNG  .and.  life(it|.eq  1 )  THEN 
call  skedul  (t,it,’accel  ’,,N’ULL) 
call  cancel  (it,  halt  ',NULL| 

E.N’DIF 

if  (trace)  print  vanter 
END 


12.10  Hide:  Simulate  Tank  Hiding.  If  the  tank  can  move  and  it  is  firepower  killed,  it  attempts 
to  hide.  It  goes  into  full  defilade,  relevant  lines  of  sight  are  broken,  its  foes  disengage  it,  all  events  associ¬ 
ated  with  the  hidden  tank  are  discarded,  and  it  halts.  Since  it  is  no  longer  involved  in  the  engagement,  a 
check  is  made  to  see  if  the  engagement  is  over. 


CODE 

COMMENT 

t 

Time  (sec) 

it 

ID  of  target. 

knceal(it) 

Concealment  is  set  to  full  defilade. 

I 

ID  of  first  foe. 

last 

ID  of  last  foe. 

los(i,j) 

Line-of-sight  is  broken  (set  to  .false.) 

c  V7.2 

SUBROUTINE  HIDE  (t,  it) 
c  5  Hide:  Simulate  tank  hiding, 
include  'common. h’ 

1  format  (r8.2,x,a4,i3,'  goes  into  full  defilade.’) 
c 

if  (trace)  print  •,’>hide  ’ 

if  (histry)  print  1,  t,  color(army(it)),  it 

knceal(it)  —  FD 

c  Cancel  all  activities  involving  this  tgt. 
c  except  discard  rounds-in-flight  in  the  impact  routine 

ifirst  «  1 

if  (it.le.nblu)  ifirst— nblu+1 
last  -  nblu 

if  (it.le.nblu)  last— nblu+nred 
DO  20  i— ifirst, last 
los(i,itl  —  .false. 
ios(it.i)  —  .false. 

20  CONTINUE 

call  newtgt  (t,  ifirst,  it) 
call  cancel  (it, 'all  '.NULL) 
call  skedul(t,it,’slowup’,NULL) 
call  deaths(t) 

if  (trace)  print  *.’<hide  ' 

ENT) 


130 


12.11  PopDn:  Simulate  Defender  Popping  Down  to  Reload  Missile  Pods.  The  defender 
pops  down  to  bring  up  another  missile  pod. 

Popdn  simply  calls  vanter. 


CODE 

COMMENT 

t 

Time  (sec) 

I 

ID  of  defender. 

c  V7.1 

SUBROUTINE  POP  DN  (t,I) 
c  0  Pop  dn:  Have  defender  pop  down  to  reload 
include  ’common. h’ 
c 

if  (trace)  print  *,’>pop  dn’ 
call  vanter(t,I,NULL) 
if^ace)  print  *,’<pop  dn’ 
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13.  TIME  ADVANCE  ROUTINES 


The  event  routines  are:  reset,  skedul,  event,  and  cancel.  Reset  can  be  thought  of  as  resetting  the 
clock,  clearing  the  calendar,  or  initializing  the  list  of  pending  events.  Skedul  inserts  an  event  in  chronolog¬ 
ical  order  while  saving  the  time,  ID  of  the  entity  performing  the  action,  type  of  action,  and  possibly  the  ID 
of  the  entity  receiving  the  action.  Event  fetches  the  next  pending  event,  recovering  the  time,  subject 
entity,  action  type,  and  object  entity.  Cancel  removes  zero  or  more  events  from  the  list. 


13.1  Event  Handling  Using  Linked  Lists.  The  two  major  ways  of  handling  events  are  stepping 
a  fixed  time  interval  and  stepping  to  the  next  significant  event.  Stepping  to  the  next  significant  event  (the 
method  discussed  here)  requires  routines  to  reset  (initialize)  the  data  structure,  schedule  an  event,  fetch  an 
event,  and  cancel  events.  This  section,  touches  on  various  techniques  for  handling  the  event  data  and  then 
discusses  the  Linked  List  technique  used  by  the  software  in  the  next  four  sections. 

As  a  minimum,  the  model  must  store  the  time  at  which  an  event  will  occur,  the  identity  of  the  entity 
that  will  perform  the  event,  and  the  type  of  event.  It  may  also  be  desirable  to  store  the  entity  receiving 
the  action  of  the  event  and  other  information  about  the  event.  If,  at  the  current  time  t,  the  program  finds 
that  after  a  delay  of  5  seconds,  tank  4  may  fire  at  tank  6,  this  would  require  a  Fortran  call  as  follows: 

call  skedul  (t+5.0,4,’fire..’,6) 

Methods  of  handling  event  data.  A  great  many  methods  have  been  used  for  storing  and  retriev¬ 
ing  event  data.  The  simplest  is  to  add  an  event  to  the  end  of  a  list  and  when  the  next  event  is  needed, 
simply  search  the  list  for  the  event  with  the  smallest  time.  The  next  simplest  is  to  insert  the  event  just 
before  the  next  following  event.  This  requires  moving  the  next  and  all  subsequent  events  down  in  the  list 
and  is  slow.  The  method  used  here  uses  linked  lists,  so  that  the  events  are  always  sorted  chronologically, 
but  records  of  subsequent  events  need  not  be  moved,  (McCormack"  discusses  eight  methods  for  handling 
event  data  applied  to  12  problems.  None  of  the  eight  was  fastest  for  all  12  problems,  however  the  method 
described  here  was  best  for  6  of  them.) 

The  search  from  the  front  linear  linked-list  technique  was  used  in  the  algorithms  in  the  following  sec¬ 
tions.  The  key  elements  are: 

•  A  set  of  links 

•  A  pointer  to  the  first  idle  link 

•  A  pointer  to  the  link  containing  the  next  event 

•  Several  auxiliary  pointers  for  manipulating  the  links 

Initially,  the  ‘idle’  pointer  points  to  the  first  available  link,  which  points  to  the  subsequent  link,  and  so  on 
until  the  last  available  link,  which  points  to  the  null  link  /?.  The  ‘next  event'  pointer  points  to  17  also. 
When  an  event  is  inserted  in  the  list,  the  algorithm  removes  the  first  idle  link  from  the  chain  of  idle  links, 
inserts  it  chronologically  in  the  chain  of  active  links,  and  inserts  the  event  data  into  the  link. 

Retrieving  the  next  event  simply  involves  copying  the  data  from  the  first  link  of  the  chain  of  active 
links,  removing  the  link  from  that  chain,  and  inserting  it  at  the  head  of  the  chain  of  idle  links. 

Cancelling  an  event  is  similar,  but  involves  links  anywhere  in  the  chain  of  active  links.  This  imple¬ 
mentation  stores  up  to  100  events.  Each  type  of  information  is  stored  in  an  array  dimensioned  to  100, 
however  a  given  link  consists  of  the  ith  element  of  each  array.  The  arrays  are: 


real  when(lOO) 
integer  who(lOO) 
character*6  what(lOO) 
integer  whom(lOO) 
integer  next(lOO) 


Time  of  the  event 
The  entity  performing  the  event 
The  type  of  event  performed 
The  entity  receiving  the  event 
The  pointer  to  the  next  link 


when(9) 

who(9) 

whom(9) 

next(9) 

18.32 

4 

mn 

6 

31 

Figure  12.  Contents  of  a  Link 
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13.2  Reset:  Re-initisHse  the  Event  List.  The  Reset  subroutine  ‘resets  the  clock’  to  time  zero. 
To  do  this  it  rebuilds  the  linked  list  of  idle  events  and  clears  the  linked  list  of  active  events.  It  is  one  of 
four  routines,  Reset,  Skedul,  Cancel,  and  Event,  that  cooperate  to  handle  events  in  Monte  Carlo  Simula¬ 
tions.  Although  it  was  designed  for  use  in  combat  simulations,  it  has  much  broader  use.  Only  the  waves 
routine  calls  it. 

If  the  single  argument  to  reset  is  true,  the  event  routines  will  print  out  each  event  as  it  is  scheduled 
or  cancelled;  if  false,  this  printing  is  not  done.  The  subroutine  then  builds  a  linked  list  of  idle  links,  as 
shown  at  the  top  of  exhibit  13.2.  It  also  makes  a  null  linked  list  of  active  links  as  shown  at  the  bottom  of 
exhibit  13.2;  no  events  are  yet  scheduled. 


idle 


link  1 


link  2 


nxevnt — ^  Q 


link  n 


9. 


Code. 


Figure  13.  The  Initial  Linked  Lists 


c  V7.1 

c  clock. h  file 

parameter  (.\E«200) 
character*6  what 
integer  who,  whom 
logical  prflag 

common  /  event!/  what(NE) 
common  /events/  when(NE),  who(NE), 

1  whom(NE),  next(NE),  nxevnt,  nxidle,  prflag 
save  /event!/,  /events/ 
c  V7.1 

StlBROUTINE  RESET  (prflgj 
c  0  Reset:  Initialize  the  clock  to  time  zero, 
include  'clock. h' 
logical  prflg 
c 

prflag  -  prflg 
nxevnt  —  0 
nxidle  -  ! 

DO  !0  j-!.\E 
next(j)  -  j  +  1 
!0  CONTI.NUE 
nextINE)  —  0 
END 


13.3  Skedul:  Schedule  an  Event.  The  Skedui  subroutine  schedules  an  event  in  a  linked  list  of 
events.  It  is  one  of  four  routines,  ’.ieset,  Skedul,  Cancel,  and  Event,  that  cooperate  to  handle  events  in 
Monte  Carlo  simulations.  Although  it  was  designed  for  use  in  combat  simulations,  it  has  much  broader 
use.  The  event  information  stored  is;  event  type,  entity  that  will  perform  the  event,  time  the  event  will 
occur,  and  perhaps  the  receiver  of  the  action. 

The  calling  statement.  The  arguments  to  the  Skedul  subroutine  tell  when,  who,  what,  and  whom. 
That  is  when  will  a  future  (tentative)  event  occur,  which  entity  will  perform  that  event,  what  event 
(activity)  will  be  performed  and  possibly  to  whom  will  that  activity  be  directed.  If,  for  example,  the 
second  Blue  system  will  fire  12  seconds  in  the  future  then  the  following  statement  would  appear  in  the  pro¬ 
gram: 

call  skedul  (t+tf,I, ’impact’, it) 

Where: 

t  is  the  current  time, 

tf  is  the  time  delay  after  which  the  event  may  occur, 

I  is  the  subject  or  actor  causing  the  event, 

’impact’  is  a  6  character  string  identifying  the  type  of  event,  and 
it  is  an  integer  identifying  the  object  of  the  event. 

Note  that  the  event  must  always  occur  in  the  future,  so  in  the  example,  tf  >  0.0. 

When  skedul  is  called  like  this,  it  inserts  the  when,  who.  what,  and  whom  data  into  a  linked  list  in 
chronological  order  with  other  scheduled  events.  In  this  case,  the  time  to  fire  is  the  current  time  ‘t’  plus  12 
seconds,  the  actor  is  tank  2,  the  event  is  indicated  by  an  integer  stored  in  the  ‘eFIRE’  variable,  and  the 
target  (the  whom)  is  indicated  by  an  integer  stored  in  the  ‘tgt’  variable. 

Algorithm.  On  average,  Skedul  must  traverse  half  the  linked  list  to  find  the  place  to  insert  the 
event  link.  It  must  also  check  to  see  if  an  idle  link  is  available.  If  so,  it  then  inserts  the  new  event  using 
these  6  steps,  as  shown  in  exhibit  13.3. 

1.  Store  the  index  of  the  idle  link/event  in  n. 

2.  Store  the  index  of  the  new  head  of  the  idle  chain  in  idle. 

3.  Store  the  index  of  the  immediately  preceding  link/event  in  1. 

4.  Store  the  index  of  the  succeeding  idle  link/event  in  m. 

5.  Store  the  index  of  the  now  active  link/event  in  next(l). 

6.  Store  the  index  of  the  succeeding  link/event  in  the  now  active  link  event  in  next(n) 


Start 

Step  1 
Step  2 
Step  3 
Step  4 
Step  5 
Step  6 


idle 

nxevnt 

n 

idle 

1 

m 

n 


Figure  14.  Scheduling  an  FA’ent 


1  it 


nextev — » 


Code. 


cV7.3 

SUBROUTINE  SKEDUL  (t, I, act, it) 
c  9  Schedule:  Schedule  an  event  for  later  execution, 
include  'clock. h' 
character*6  act 

1  rormat(9x,'skedul  ’,i3,'  ',a6,i3,'  at  time', 18. 2) 
c 

if  (prilag)  print  1,  I,  act,  it,  t 
IF  (nxidle.eq.O)  THEN 
c  If  storage  all  used  stop 

print  ,’  Storage  overloaded  with  too  many  events.’ 
STOP 
ELSE 

c  Store  the  event 

c  Cut  storage  unit  from  empties 

n  —  nxidle 

nxidle  —  next(n.xidle) 

c  Then  find  where  to  insert  this  event  in  the  event  list. 

IF  (nxevnt.le.O)  THEN 
c  New  event  is  only  event 
next(n)  —  0 
nxevnt  —  n 
ELSE 

c  Then  find  where  to  insert  it. 
c  Point  to  first  2  events 

1  —  nxevnt 
m  —  next(l) 

c  Find  where  to  insert  them 

IF  (t.ge.when(l))  THEN 
c  See  if  between  2  scheduled  events, 

c  Loop  till  found. 

'20  IF  (m.ne.O  .and.  t.ge.when(m))  THEN 

1  —  m 

m  •  next(m) 

GOTO  20 
ELSE 

c  Splice  new  event  into  list 

next(n)  -  m 
next(l)  “  n 
END  IF 
ELSE 

c  Place  new  event  as  most  imminent 

next(n)  —  nxevnt 
nxevnt  —  n 
END  IF 
END  IF 

c  Finally  store  event  info 
when(n)  »  t 
whatfn)  —  act 
who(n)  —  I 
whom(n)  —  it 
END  IF 
E.ND 
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13.4  Event:  Find  Next  Event.  The  Event  subroutine  finds  the  next  event  to  be  simulated  from  a 
linked  list  of  events.  It  is  one  of  four  routines,  Reset,  Skedul,  Cancel,  and  Event,  that  cooperate  to  handle 
events  in  Monte  Carlo  simulations.  Although  it  was  designed  for  use  in  combat  simulations,  it  has  much 
broader  use. 

The  Event  subroutine  is  only  called  when  an  event  is  completed  and  the  simulation  is  ready  to  exe¬ 
cute  the  next  event  at  the  top  of  the  list.  One  of  the  ’model’  routines  called  Events  is  the  only  routine  that 
calls  Event.  It  is  called  as  follows: 


call  event(I,  act,  it,  t) 

All  four  arguments  are  output  from  Event  and  contain  the  time  of  the  most  imminent  event,  who  (which 
tank)  is  performing  the  event,  what  event  is  being  performed,  and  whom  (which  target)  is  receiving  the 
action.  If  t,  I,  act  have  the  values  10.5,  4,  ’select’  then  the  current  becomes  10.5  seconds  and  at  that  time 
tank  4  attempts  to  select  a  target.  (The  variable  ‘it’  is  undefined  for  this  particular  event.) 

The  event  routine  simply  extracts  the  information  for  the  next  event  from  the  first  link  on  the  linked 
list  of  events  and  then  moves  that  link  to  the  head  of  the  linked  list  of  idle  links.  The  information 
extracted  is: 

I  -  the  entity  performing  the  event 
act  -  the  event  or  act 

it  -  the  object  of  the  event  (or  other  useful  information) 
t  -  the  time  the  event  occurs 

Figure  15  shows  the  arrangement  of  the  idle  and  active  linked  lists  before  and  after  the  most  imminent 
event  is  fetched. 
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Figure  15.  Selecting  the  Next  Event 


c  V7.2 

SUBROUTINE  EVENT  (I.act.it.t) 
c  0  Event:  Find  the  next  scheduled  event, 
include  'clock. h' 
character's  act 

c 

c  Fill  arguments 

I  who(nxevnt) 
act  —  what(nxevnt) 
it  —  whom(nxevnt) 
t  —  when(nxevnt) 

c  Drop  storage  unit  from  active  storage  chain 
n  •  nxevnt 

nxevnt  —  next(  nxevnt) 
c  Add  storage  unit  to  inactive  storage, 

next(n)  «■  nxidle 
nxidle  «  n 
END 


I  It) 


13.5  Cancel:  Cancel  an  Event.  The  Cancel  Subroutine  cancels  an  event  from  a  linked  list  of 
events.  It  is  one  of  four  routines,  Reset,  Skedul,  Cancel,  and  Event,  that  cooperate  to  handle  events  in 
Monte  Carlo  Simulations.  Although  it  was  designed  for  use  in  combat  simulations,  it  has  much  broader 
use. 


Cancel  removes  zero  or  more  links  (events)  from  the  list  of  scheduled  events  and  places  them  in  the 
linked  list  of  idle  links.  This  removes  the  record  of  these  events,  so  they  never  occur.  The  cancel  routine  is 
called  in  the  four  ways  illustrated  below: 

call  cancel  (I, ’fire  ’,it) 
call  cancel  (I, ’all  ’,it) 
call  cancel  (I, ’all  ’,NULL) 
call  cancel  (I, ’fire  ’,NULL) 

The  first  call  to  cancel  cancels  any  fire  events  associated  with  entity  I  and  object  it.  The  second  ver¬ 
sion  cancels  all  events  associated  with  entity  I  and  object  it.  The  third  version  cancels  all  events  associated 
with  entity  I,  no  matter  what  is  the  object  of  the  action.  The  fourth  version  cancels  all  fire  events  associ¬ 
ated  with  entity  I. 

Figure  16  shows  how  the  active  and  idle  chains  look  before  and  after  cancelling  the  second  active 
event;  event  y. 
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Figure  16.  Cancelling  an  Event 


Code. 


c  V'7.1 

SUBROUTINE  CANCEL  (I.  act,  it) 
c  0  Cancel:  cancel  'act'  events  for  T'  entity, 
c  (all  events  if  act—") 
c  Definitions  of  locai  variabies: 

c  m  -  pointer  to  previous  event 
c  n  -  pointer  to  current  event  being  considered 
include  'clock. h’ 

logical  is  what,  is  who,  is  whom 
character's  act 

1  format(9x, 'cancel  ',i3,'  ',a6,i3,'  at  time'.f8.2) 

m  —  0 
n  —  nxevnt 

10  IF  (n.ne.O)THEN 

c  Continue  until  n— 0 

is  who  —  I  .eq.who(n) 
is  what  —  act.eq.what(n)  or.  act. eq. 'all  ' 
is  whom  —  it.eq.whom(n)  .or.  it.eq.O 
IF  (is  who  .and.  is  what  .and.  is  whom)  THEN 
c  Then  remove  event 

if  (prflag  (print  1,  I,  act,  it,  when(n) 
if  (m.eq.O)  nxevnt  —  next(n) 
if  (m.ne.O)  next(m)  -  next(n) 
next(n)  —  nxidle 
nxidle  —  n 

if  (m.eq.O)  n  —  nxevnt 
if  (m.ne.O)  n  —  next(m) 

ELSE 

c  Don't  remove  event.  Shift  to  next  event. 


n  —  next(n) 
END  IF 
GOTO  10 
END  IF 
ENT) 


U7 


m  —  n 


INTENTIONALLY  LEFT  BLANK 


14.  OTHER  UTILITY  ROUTINES 


The  routines  in  this  section  are  gener*'  'inrpose  routines.  They  are  useful  for  more  than  just  the 
simulation  of  combat.  They  have  few  if  any  common  statements  and  generally  are  stand  alone  routines. 
The  exception  is  that  several  of  the  random  number  routines  call  the  uniform  random  number  generating 
routine. 


14.1.  Create:  Find  Space  to  Store  Bullet  Data.  Create  ‘creates’  temporary  entities.  So  far,  it 
is  only  used  to  create  bullets  and  missiles.  They  are  created  by  fire  and  are  destroyed  by  impact.  Actu¬ 
ally,  it  finds  an  ID  for  the  entity  and  allocates  space  in  a  linked  list  to  store  vital  parameters  for  the  entity. 

Create  manipulates  the  array  a(1000)  as  shown  below. 


«1 

“*21 

D 

B 

‘1000 


The  ID  of  the  temporary  entity  is  the  index  of  the  first  word  storing  information  for  that  entity.  For 
example,  the  ID  of  the  first  entity  created  is  21.  If  9  values  are  stored  for  the  entity,  they  will  be  stored  in 
locations  22. .30.  The  next  entity  created  would  have  ID=31.  The  second  through  20th  words  of  the  array 
are  not  used  so  entity  ID  1..20  will  not  be  assigned  and  cause  a  conflict  with  the  ID’s  of  the  permanent 
entities. 

When  the  code  creates  an  entity  with  n  attributes,  it  f  nds  an  unused  block  of  words.  If  the  block  is 
m  words  long,  it  is  divided  into  two  blocks  of  n-H  and  m-n-1  words.  If  a-  is  the  first  word  of  the  first 
block  and  Cj  is  the  first  word  of  the  second  block,  the  code  sets  a-  =  ±j.  When  a-  is  negative,  the  first 
block  is  active.  After  impact  of  the  round,  the  round  is  destroyed  by  setting  a-  =  abs(a-).  This  tells 
create  that  this  block  of  the  a-array  is  available  for  use. 

When  create  is  searching  for  an  unused  block  of  sufficient  length,  it  checks  the  current  (ith)  block 
and  its  successor  (jth)  block.  If  a-  and  a^  are  both  positive,  they  are  both  unused  and  create  joins  them 
into  one  block  by  setting  a,  =  a--(-ay. 


CODE 


COMMENT 


n  The  number  of  attributes  to  be  stored, 

a  The  vector  used  to  store  attributes  in. 

done  True  iff  the  routine  is  done;  if  it  finds  space  to 
store  the  attributes  in. 

The  index  of  the  storage  space  we  are  currently 
looking  at. 

ient  I  The  index  of  the  storage  space  where  the  attributes 
will  be  stored.  It  is  also  the  number  that  will  be  used 
to  identify  the  temporary  entity  created, 
istart  1  The  starting  point  for  the  search.  If  we  get 

back  to  istart  without  a  find,  we  have  a  storage  overload 
and  we  error  off. 

The  index  of  the  next  storage  space.  We  want  to  look 
at  it  with  the  possibility  of  catenating  it  to  the 
storage  space  beginning  at  i. 
nreq  |  The  number  of  spaces  required.  It  equals  the 

number  of  attributes  plus  one  word.  This  one  word  is  used 
for  searching  purposes.  If  it  is  negative  (-abs(m)).  that 
indicates  that  the  next  m  words  are  being  used  to  store 
the  m  attributes  of  an  entity.  If  it  is  positive,  then  the 
next  m  words  are  available  for  use. 

The  amount  of  storage  space  is  1000  words.  If  you  want  to  increase  this,  change  all  occurrences  of 
1000  in  this  routine  and  in  reset. 


1  .^>0 


c  V7.4 

SUBROUTINE  CREATE  (n.  ient) 
c  8  Create:  create  a  temporary  entity,  (a  bullet  or  msl) 
c  note  -  The  amount  of  storage  space  is  1000  words.  If  you  want  to 
c  increase  this  you'll  have  to  change  all  occurrences  of  1000. 
c  Also  note  that  in  .leset  these  must  be  set  -  a— 0,  a(l)— 1000., 

c  i*«l. 

c 

logical  trace,  histry,  done 
common  /ctrace/  trace,  histry 
common  /tstore/  a(lOOO),  i 

1  format  (’  CREATE:  Not  enuf  space  to  store’,i5,  ’  attributes.’) 

2  format  (’  CREATE:  i,  j,  a(i),  a(j)  -’,2i5,2fl0.3) 
c 

if  (trace)  print  *,’>  create’ 
c  Initialize 

done  —  .false, 
istart  ••  i 
nreq  —  n+1 

c  Find  empty  space  in  the  a-array 

10  IF  (.not.done)  THEN 
c  Try  next  empty  space 

20  CONTINUE 

c  Catenate  empty  spaces  if  possible 

c  Find  next  space  (and  error  off  if  we’re  back  at  start) 

j  —  i+iabs(int(a(i))) 
if(j.gt.l000)j-l 

IF  ((j.eq.l)  .or.  (a(i).lt.O)  .or.  (a(j).lt.O))  THEN 
c  Test  this  space  for  size. 

IF  (a{i).ll.float(nreq))THEN 
c  Move  to  next  space. 

i  -  j 

if  (i.eq. istart)  print  1,  n 
IF  (i.eq. istart)  STOP 
ELSE 

c  Reserve  space. 

done  —  .true, 
itemp  =  i+nreq 

if(a(i).ne.ftoat(nreq))a(itemp)  =•  a'i  Vfloat(nreq) 
a(i)  —  -nreq 
ient  —  i 

i  -  J 
END  IF 
ELSE 

c  Do  catenation. 

a(i)  =  a(i)-l-a(j) 

IF  (a(i).gl.0,0  and.  a(j).gt.O.O)  GOTO  20 
print  2,  i,  j,  a(i),  a(j) 

STOP 
E.NDIF 
GOTO  10 
END  IF 

if  (trace)  print  *.’<create' 

E.ND 

c  V7.1 

SUBROUTINE  CRESET 
c  0  Cresel  -  Reset  variables  used  by  create, 
common  'tstore/  a(lOOO),  iholy 
parameter  (NN‘-20) 

DO  20  i -2. 1000 
a(i  1-0.0 

20  CONTI.NUE 
adl— NN 

a(NN-t-l|  =  lOOO-NN 
iholy—.N'N-f  1 
E.ND 


14.2.  Anglef:  Find  the  Angle  Between  Two  Vectors.  The  dot  product  of  two  vectors  is: 

ab  =  abcosQ 

where,  9  is  the  angle  between  them.  So 

a-b 

X  =  costf  =  - 

ab 

To  avoid  round  off  errors,  the  result  is  trimmed  so  that  —1  <  cosB  <  —1. 

Next,  the  cosine  is  taken: 

-I 

y  =  cos  X 

Finally,  the  appropriate  sign  is  attached: 

fg  =  a^b^—a2b^ 
z  =  -8ign(y,r^) 

Note  that  a,  b  are  approximately  in  the  ground  plane  and  that  is  the  3rd  component  of  the  cross  pro¬ 
duct.  The  result  is  in  radians. 


c  V7.3 

FUNCTION  ANGLEF  (a,  b) 
c  9  Anglef:  find  angle  between  two  vectors, 
dimension  a(3),  b(3) 

vabsa  —  sqrt(a(l)**2  +  a(2)**2  +  a(3)*’2) 
vabsb  -  sqrt(bhf*2  +  b(2)**2  +  b(3)**2) 
dotab  -  a(irb(l)  +  a(2)*b(2)  +  a(3)*b(3) 
dm  ••  dotab/(vabsa*vabsb) 
dm  —  aminl(l.,amaxl(-l.,dm)) 
dm  —  acos(dm) 
r3-a(l)*b(2)-  a(2)*b(l) 
anglef  »  -sign(dm,r3) 

ENT) 


14.3.  Confb:  Find  the  90%  Confidence  Interval  On  a  Binomial  Outcome.  Dixon  and 
Massey^  give  the  method  for  finding  a  confidence  interval  on  a  binomial  outcome. 


CODE 

P 

np 

hi,  lo 
fail 


_ COMMENT _ 

The  number  of  desirable  outcomes. 

The  number  of  trials. 

The  high  and  low  ends  of  the  confidence  interval. 
True  IFF  a  confidence  interval  cannot  be  found. 


If  most  outcomes  are  desirable  ones  or  most  outcomes  are  undesirable  or  if  the  sample  size  is  too 
small,  no  confidence  interval  can  be  found. 

c  Vl.l 

SUBROUTINE  CONFB  (p,  nr,  hi,  lo,  fail) 
c  Confb:  Find  the  90%  binomial  confidence  interval, 
c  p  -  the  sample  probability, 
c  nr  -  the  sample  size. 

c  Reference:  Introduction  to  Statistical  Analysis,  3rd  edition, 
c  Dixon  and  Massey,  p246. 
real  lo,  n 
logical  fail 
data  z/1.645/ 
c 

n  =  float(nr) 

fail  =  (n*p.lt.5)  .or.  ((n-n’p).lt.5) 

IF  (.not. fail)  THEN 

c  Find  confidence  interval  (sample  size  is  big  enough). 


sl 

=  n/(n+z**2) 

s2 

=  0,5*z*’2/n 

s3 

-(p+0.5/n)* 

(1.0- p-O.s/n 

s4 

-  (p-O.s/n)  •  1 

T.O-p-(-0.5/n 

s5 

-  z**2/(4.0*n 

•n) 

lo  =“  sl*(p-0.5/n+s2-z*sqrt(s3/n+s5)) 
hi  —  sl*(p+0,5/n+s2+z*sqrt(S'4/n+s5)) 
END  IF 
END 


14.4.  Indexx:  Find  the  Index  j,  Where  a(j)  <=  x  <  a(j+l).  To  interpolate  in  tables,  use  the 
indexx  function.  Indexx  assumes  that  the  dependent  variable  is  stored  in  a  vector  of  reals,  for  example,  x(l) 
..  x(n),  in  ascending  or  descending  order.  Given  the  arguments  x,  n,  z,,  where  x  is  an  ascending  vector,  it 
finds  the  value  i  such  that  z-  <  x,  <  x,+i  using  binary  search.  If  z,  <x-  or  x,>z„,  it  returns  a  zero  value 
for  i. 

Suppose  we  wish  to  linearly  interpolate  in  table  21.  We  may  use  the  following  lines  of  code,  where 
the  second  line  is  a  statement  function: 

real  f(10),  x(10) 

fj(xj)  =  f(i)  +  (f(i+l)-f(i))  *  (xj-x(i))  /  (x(i+l)-x(i)) 

i  =  indexx(x,10,xj) 

y  =  fj(xj) 

Table  21.  Find  an  index 


X 

0.0 

0.5 

1.0 

1.5 

2.0 

2.5 

3.0 

3.5 

i(x) 

0.0 

0.4 

0.81 

1.23 

1.68 

2.10 

2.52 

2.95 

Code. 


c  V7.-’ 

FUNCTION  INDEXX{a,  n,  x) 
c  Find  the  index  j,  where  a(j)  <  •■  x  <  a(j  +  l) 
integer  n  ,lo,  hi,  mid 
logical  incres,  above 
real  a(n),  x 

incres  —  a(n).gt.a(l) 

lo-O 

hi— n+I 

10  IF  (hi-lo.gt.l)THEN 
mid— (hi+lo)/2 
above— x.gt.a(mid) 

IF  (incres. eqv. above)  THEN 
lo— mid 
ELSE 
hi— mid 
ENT)  IF 
GOTO  10 
ENT)  IF 
index.x— lo 
END 


14.5.  Ranu:  Draw  a  Random  Number  from  the  Standard  Uniform  Distribution.  This  sub¬ 
routine  uses  a  version  of  the  uranSl  uniform  random  number  generator  to  pseudo-randomly  draw  a 
number  from  the  uniform  distribution  extending  from  0  to  1.  The  following  explains  how  to  "seed”  the 
generator  and  shows  some  sample  draws. 


Why  use  a  random  number  generator  coded  in  Fortran?  For  the  following  reasons; 

First^  we  believe  this  is  one  of  the  better  random  number  generators.  It  is  based  on  an  algorithm  by 
Pike  .  We  also  recommend  the  discussion  of  random  number  generators  by  Press^  and  by  Knuth^. 

If  you  are  transporting  a  program  from  one  computer  to  another,  and  it  draws  random  numbers, 
you’ll  be  more  confident  if  test  cases  generate  exactly  the  same  results  on  each  machine. 

If  a  long  run  dies  in  mid-stream,  and  you’ve  printed  the  random  number  seed  periodically,  you  may 
be  able  to  restart  the  run  at  the  point  it  last  printed  the  seed. 


4.  And  finally,  if  you  are  debugging  a  run  by  turning  on  more  and  more  print  statements,  you  can 
suppress  enormous  volumes  of  printout  by  judiciously  setting  the  random  number  seed  and  restart¬ 
ing  the  run  in  mid-stream. 


Input/Output.  Ranu  requires  the  calling  program  to  initialize  the  variable  j  in  the  common  state¬ 
ment  /crandm/  j.  We  have  used  the  value  however  other  odd  integers  are  legal.  The  common 

statement  may  be  replaced  with  a  data  statement  such  as:  data  j  /lllllll/  if  you  do  not  wish  to  reset  the 
seed.  The  calling  statement:  call  ranu(),  of  course,  requires  no  argument.  Figure  17,  below  illustrates  ten 
draws  using  ranu,  and  shows  a  plot  of  20  draws  using  pairs  of  variates  as  the  coordinates  of  the  10  points. 


Seed=  lllllll 

First  ten  draws  from  the  function: 
0.7401378  0.9308131 
0.7908101  0.2813551 
0.2351466  0.8330226 
0.1955611  0.1284252 
0.3288300  0.5939014 


o 
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0 


1 


Figure  17.  Ten  Pairs  of  Numbers  Drawn  from  a  Uniform  Distribution 


Mathematics.  Ranu  is  a  variant  of  the  uran3l  subroutine  long  used  at  BRL.  It  is  discussed  in  the 
Collected  Algorithms  of  the  ACM  .  We  have  tested  a  number  of  random  number  generators  and  found 
Ranu  to  be  the  only  one  to  pass  all  5  tests.  Ranu  &  uran3I  will  work  on  any  computer  with  31  or  more 
bits  per  integer.  Any  odd  seed  between  I  and  67108863  was  acceptable  for  the  earliest  version.  Revisions 
to  accommodate  31  bit  machines  will  have  reduced  this  upper  limit  and  the  cycle  length.  Cycle  length  of 
the  current  version  is  16.777,215. 


1.55 


Code, 


FUNCTION  RANU  (dm) 

c  Ranu:  A  version  of  uran31  uniform  random  nr  generator, 
common  /crandm/  j 
real  al 

j-j*25 

j-j-(j/67108864)*67108864 

i-j*25 

i-j-(j/67108864)*67108864 

j-j*S 

j  -j-(  j/  67 108864)*67 108864 

ranu-  al/67108864 
END 


156 


14.0.  Rann:  Draw  a  Random  Number  from  a  Normal  Distribution.  Rann  draws  two  ran¬ 
dom  variates  from  the  standard  normal  distribution  using  the  Box-Muller  method. 

Output.  This  subroutine  generates  two  real  numbers  randomly  chosen  from  the  normal  distribu¬ 
tion.  Interpreting  the  output  as  x  and  y  coordinates,  we  produced  the  twenty  points  drawn  in  Figure  18, 
which  represent  random  shots. 
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Figure  18.  Draw  of  20  Random  Shots 

8 

Mathematics.  Rann  is  based  on  an  algorithm  by  Bell  .  It  produces  two  independent  random  vari¬ 
ables,  each  frr  m  the  normal  distribution  with  mean  0  and  standard  deviation  1.  The  subroutine  calls  the 
real  function  an  twice.  Ranu  is  a  pseudo-random  number  generator  that  produces  a  number  lying  strictly 
between  0  an^.  1.  See  section  1-4.5  for  details.  Algorithm  334  is  a  slightly  faster,  but  more  complex  version 
of  algorithm  -37.  See  also  algorithm  142  for  a  slower,  but  higher  precision  algorithm.  Finally,  see  algo¬ 
rithm  448,  wli'ch  may  be  faster  if  one  of  the  2  random  deviates  must  be  discarded. 

Code. 

SUBROUT'N'E  R.\NN(p..il 

c  7  Rann:  dra->  two  random  numbers  from  ihf  st-i  normal  distribution. 

0  Box-Mulle.  method 

X  =»  S'5rt(-:  *aiog(ranu(dml)) 
y  -  'J.'.d.I  il392fi.5.d.a*ranu(dm) 
p  -  x*ro.'  ) 

q-X*.Ul.,  ) 

END 


1.57 


14.7.  RndAng:  Draw  a  Random  Angle  from  a  Cardioid  or  Other  Distribution.  The  aspect 
angle  is  the  angle  of  an  incoming  round  measured  from  the  nose  of  the  target.  Rnd  ang  chooses  an  aspect 
angle  for  the  incoming  round  by  randomly  drawing  from  the  cardioid  distribution  or  a  more  frontally 
oriented  distribution. 

1  2 

Peterson  ’  has  analyzed  the  angular  distributions  of  shots  on  hulls  and  on  turrets  during  World  War 
II.  He  found  that  the  distributions  were  approximately  cardioid  with  the  distribution  of  shots  on  turrets 
slightly  more  tightly  grouped  for  the  turret  than  for  the  hull.  Again,  this  distribution  is  not  very  helpful 
to  the  armor  analyst  or  simulation  builder  because  the  initial  orientations  and  subsequent  motions  are  not 
defined,  only  the  final  orientations.  If  we  assume  a  cardioid  distribution  initially,  the  straight  line  motion 
of  the  attackers  tends  to  spread  out  the  distribution  of  impacting  rounds  on  the  tanks.  Further,  the  act  of 
pointing  the  turret  at  a  target  tends  to  pinch  the  distribution  of  impacting  rounds  on  the  turrets.  The  net 
result  in  simulations  is  a  distortion  of  the  distribution  of  impact  angles  on  the  tanks,  but  it  is  not  neces¬ 
sarily  severe.  This  is  how  the  initial  orientations  are  chosen  for  each  engagement  and  if  they  move  this  is 
how  they  will  move. 

The  cardioid  density  function  is: 

p  =  {l+cosff)/2n 

The  cardioid  distribution  function  is  the  integral  of  the  density  function: 

t 

P  =  J  p  dd  =  (d+sinS+ir)/  2jr. 

Both  of  these  are  illustrated  in  figure  19  below. 


-200  -100  0  100  200 
.Aspect  .Angle  (deg) 

Figure  19.  Cardioid  Density  and  Distribution  Functions 

.A  more  frontally  oriented  distribution,  often  u.sed  is  given  by: 

p  =  (1  -t-  cos  35)/6ir,  — )r/3  <&  <  tr/3 

P  =  (30  +  3cos  30)/2t 

There  may  be  no  way  to  analytically  solve  for  9  given  P  and  Newton's  method  for  solving 
misbehaves,  so  the  code  uses  binary  search.  The  last  2  equations  in  the  table  below  are  repeated  10  times, 
each  time  saving  the  value  of  9  in  Ij  or  as  appropriate. 


CODE 

MATH 

COMMENT 

PI 

TT 

denom 

d  =  0.5/jr 

P 

p  =  ranu() 

Random  draw  from  a  uniform  distribution. 

tlo 

$1  =  —X 

Lower  limit  of  angular  value  (rad). 

thi 

Upper  limit  of  angular  value  (rad). 
REPEAT  FOLLOWING  LINES  10  TIMES 

theta 

e  =  (0,+e,)/2 

Limit  (rad). 

px 

Pj  =  (tf-fsintf+5r)d 

IF  p,  <  p  THEN 

di  =  d 

ELSE 

END  IF 

True  iff  B  is  too  low. 

c  vr.2 

FUNCTION  RNDANG(iangd) 

c  Rnd  ang:  Draw  a  random  angle  from  a  cardioid/other  distribution. 

PI-3.H15926536 
denom  —  0.5/Pl 
p— ranufdummy ) 

c  Do  binary  search  to  And  theta  associated  with  random  draw 
llo  —PI 

if  (iangd.gt.I)  tlo  -  -PI/3, 
thi  -  PI 

if  (iangd.gt.I)  thi  —  PI/3. 

DO  20i-I,10 
theta  —  0.5*(tlo+thiJ 

if  (iangd.eq.l)  px  -  (theta-t-sin(lheta)-hPI)*denom 
if  (iangd.gt.I)  px  —  (3.*lheta-t-sin(3.*theta)-t-PI)*denom 
IF  (px.lt.p)THEN 
tlo  —  theta 
ELSE 
thi  »  theta 
END  IF 

20  continlt; 

rndang— theta 
END 
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